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BRLESC  FORTRAN 

ABSTRACT 

FORTRAN  is  a  popular  programming  language  that  has  been  implemented  on  many 
computers.  It  is  now  available  on  Ballistic  Research  Laboratories’  BRLESC  com¬ 
puter.  This  report  describes  the  FORTRAN  language  in  general  and  includes  spe¬ 
cific  details  about  its  implementation  on  BRLESC. 
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I.  INTRODUCTION 


FORTRAN  is  a  programming  language  that  is  widely  used  on  a  variety  of  computers 
and  can  now  be  used  on  Ballistic  Research  Laboratories'  BRLESC  computer.  FORTRAN 
was  designed  primarily  for  programming  of  scientific  problems  and  the  evaluation 
of  arithmetic  formulas.  It  is  basically  similar  to  the  FORAST  programming  lan¬ 
guage  that  is  currently  used  on  BRLESC  and  ORDVAC  but  many  of  the  details  are 
different. 

This  manual  is  intended  primarily  for  the  programmers  that  are  familiar  with 
FORAST  and  BRLESC;  however,  it  includes  a  general  description  of  the  FORTRAN  lan¬ 
guage  and  should  prove  helpful  to  anyone  who  is  interested  in  writing  or  reading 
FORTRAN  programs.  Additional  details  and  general  information  can  be  obtained  from 
other  FORTRAN  manuals  and  publications.  The  FORTRAN  II  manuals  for  the  709/7090 
are  suggested  for  those  interested  in  using  BRLESC  FORTRAN  since  BRLESC  FORTRAN  is 
more  compatible  with  the  709/7090  version  of  FORTRAN  than  with  some  versions  that 
are  used  on  other  computers.  Some  readers  may  be  surprised  to  learn  that  FORTRAN 
is  not  the  same  for  all  computers.  Although  the  general  rules  are  usually  the 
same,  differences  in  details  do  exist  and  some  of  the  detail  differences  are  quite 
subtle.  It  is  relatively  easy  to  write  FORTRAN  programs  which  when  executed  on 
different  computers  will  yield  different  results.  These  differences  may  be  due  to 
differences  in  compilers  or  differences  in  the  structures  of  the  computers.  How¬ 
ever,  most  FORTRAN  programs  require  only  minor  modifications  to  allow  them  to  run 
on  any  given  computer.  The  modifications  usually  require  much  less  effort  and 
time  than  would  be  required  to  re-program  the  problem  in  another  programming  lan¬ 
guage. 


II.  THE  CHARACTER  SET 

FORTRAN  allows  the  use  of  the  twenty- six  capital  letters  of  the  alphabet,  the 
decimal  digits  0  to  9  and  the  special  symbols  +  -  (  ).*/,=.  (The  symbol  $ 
is  allowed  only  as  hollerith  text  in  a  FORMAT  statement.) 

The  card  code  for  these  characters  is  the  same  as  normally  used  for  FORAST 
and  BRLESC  except  for  the  following: 

FORTRAN  BRL 

(  <f>  Standard  FORTRAN  left  parenthesis  uses  0-4-8  punches  that 

normally  represents  %  at  BRL.  Since  FORTRAN  does  not  allow 
the  4-8  code  (BRL  left  parenthesis)  in  programs,  BRLESC 
FORTRAN  allows  either  code  to  mean  left  parenthesis. 
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+ 
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III.  SYMBOLIC  NAMES  AND  CONSTANTS 

A.  General  Names 

In  FORTRAN.,  all  symbolic  names  (other  than  statement  names)  must  begin  with  a 
letter  and,  for  variables,  the  first  letter  determines  the  type  of  number  it  rep¬ 
resents.  Names  of  variables  that  begin  with  I,  J,  K,  L,  M  or  N  represent  integer 
numbers  whereas  names  beginning  with  other  letters  represent  floating  point  numbers 
(or  Boolean  variables).  The  length  of  symbolic  names  is  restricted  to  six  char¬ 
acters  except  subroutine  names  may  have  a  terminal  F  as  a  seventh  character. 

B.  Statement  Numbers 

Locations  of  statements  (cols.  1-5  of  FORTRAN  statement  cards)  must  be  all 
decimal  digits  and  thus  look  like  integer  numbers  but  are  really  symbolic  locations 
of  statements.  (Statement  numbers  must  be  less  than  52768  for  709/7090  but  not 
BRLESC. )  They  do  not  affect  the  sequence  of  execution  of  the  statements. 

C.  Constants 

1.  Integer  constants  are  written  without  a  decimal  point.  An  integer  con- 

64 

stant  on  BRLESC  may  consist  of  1  to  19  decimal  degits  (less  than  2  in  absolute 

value)  except  for  those  integers  involved  in  division  operations  which  must  be 

5k 

less  than  2  in  absolute  value.  Some  computers  restrict  integer  constants  to  as 
few  as  four  decimal  digits.  The  values  of  integer  variables  are  restricted  to 
the  same  maximum  value  as  integer  constants  on  BRLESC  and  most  computers. 

2.  Floating  point  constants  must  be  written  with  a  decimal  point.  They  may 
consist  of  a  decimal  point  with  1  to  19  decimal  digits  (on  BRLESC)  and  may  be 
followed  by  an  E  and  a  decimal  exponent.  The  BRLESC  range  of  floating  point 


Standard  FORTRAN  uses  card  codes  for  the  signs  that  are 
just  the  opposite  of  BRL  usage  (+  is  x,  -isyat  BEL). 

A  "CHANGE  +  AND  -"  control  card  may  be  inserted  in  a 
FORTRAN  program  to  cause  BRLESC  to  reverse  these  symbols. 
They  are  initially  set  for  BRL  usage. 

The  709/7090  FORTRAN  and  BRLESC  FORTRAN  also  allow  a  4-8 
card  code  to  be  a  minus  sign  on  decimal  input .  BRL  signs 
are  used  for  decimal  input  unless  the  SETMSI  subroutine  is 
used  to  change  signs.  A  "CHANGE  +  AND  -"  control  card 
does  not  change  signs  used  for  input  data. 

This  card  code  X-3-8  is  allowed  only  in  hollerith  text 
(H  fields)  in  FORMAT  statements. 
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constants  (variables)  is  between  10^^  and  10  approximately  in  absolute  value 
with  zero  also  allowed.  Most  computers  have  a  more  restricted  range  of  numbers. 

Examples:  1.  ,  4.21  ,  .  2  ,  51.6  E2  ,  .  IE-3 

5.  Boolean  constants  are  written  as  twelve  octal  digits.  If  less  than  twelve 
digits  are  written,  zeros  are  added  by  the  computer  to  the  left  of  the  digits  to 
make  a  total  of  twelve. 

D.  Arrays 

Blocks  of  storage  are  referred  to  as  arrays  in  FORTRAN  and  are  defined  in 
DIMENSION  statement  s.  Subscripts  are  enclosed  in  parentheses  in  FORTRAN,  g  .  § . 

A(3)  or  B(l,j),  and  one,  two,  or  three  dimensional  arrays  may  be  used.  Any  sub¬ 
script  may  be  variable  and  "indexing",  as  done  in  FORAST,  is  not  allowed.  Sub¬ 
scription  of  variables  is  done  by  substitution  rather  than  addition  and  the  lower 
bound  of  all  subscripts  is  one.  Subscript  arithmetic  is  allowed;  BRLESC  FORTRAN 
allows  any  integer  arithmetic  expression  that  does  not  itself  involve  any  sub¬ 
scripted  variables,  however,  the  most  general  expression  allowed  in  standard 
FORTRAN  is  C  *  V  +  C  where  C  and  O’  are  integer  constants  and  V  is  an  integer 
variable. 

Subscripted  names  must  not  end  with  F  unless  they  have  three  or  less  char¬ 
acters. 


Symmetric  arrays  are  not  allowed  in  FORTRAN  and  there  is  no  provision  for 
"interweaving"  arrays. 

I  »'  A  "l-i  1  1  i  4-  A  ^  ^  -V,  o  <s  f~* 

Hj .  nubumoc  .Mina-i  c: ^>c: £> 

There  is  no  provision  in  FORTRAN  for  writing  absolute  addresses. 


IV,  ARITHMETIC  EXPRESSIONS 

The  following  symbols  denote  the  following  operations: 

+  addition 

subtraction 
*  multiplication 
/  division 
**  exponentiation 

The  use  of  functions  (subroutines  with  only  one  result)  is  also  allowed  by 
writing  the  name  of  the  function  in  front  of  parentheses  that  enclose  the  argu¬ 
ments.  (FORTRAN  allows  functions  to  have  more  than  one  argument  and  commas  are 
used  to  separate  the  arguments.)  The  arguments  may  be  arithmetic  expressions. 
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Tne  precedence  of  operations  when  not  governed  by  the  use  of  parentheses  is 

functions  ( subroutines ) 

** 

*  and  / 

-L  .. 

*  emu 

where  the  operations  higher  or  the  list  will  be  performed  before  those  that  are 
lower  on  the  list.  For  successive  +  and  -  operations  or  successive  *  and  /  oper¬ 
ations,  they  will  be  performed  from  the  left  to  the  right.  Parentheses  may  always 
be  used  to  cause  the  operations  to  be  done  in  any  desired  sequence.  Successive 
exponentiations  must  always  have  parentheses  to  show  the  desired  grouping. 

The  major  difference  between  F'ORAST  and  FORTRAN  arithmetic  expressions  is  the 
grouping  of  successive  multiplications  and  divisions.  FORAST  groups  them  from  the 
right  and  FORTRAN  groups  them  from  the  left.  Thus  in  the  expression  (A  *  B/C  *  D), 
D  is  in  the  denominator  for  FORAST  and  is  part  of  the  numerator  for  FORTRAN. 

Implied  multiplication  should  not  be  used  in  FORTRAN  (although  some  versions 
do  allow  it  and  BRLESC  FORTRAN  allows  it  after  a  right  parenthesis). 

Fixed  Point  Fractional  Arithmetic  Is  Not  Allowed  in  FORTRAN.  All  arithmetic 
within  an  expression  must  be  one  mode  (integer  or  fl.  pt.)  except  for  integer 
subscripts  and  integer  powers  of  exponentiation  in  floating  point  expressions. 

The  first  letter  of  the  names  and  the  use  of  the  decimal  point  in  numbers  deter¬ 
mines  the  mode  rather  than  preceding  the  expression  with  a  declaration  of  the 
mode  as  is  done  in  FORAST. 

Parenthe  sg s  must  not  be  omitted  at  the  ends  of  an  expression.  The  number  of 
left  parentheses  must  be  the  same  as  the  number  of  right  parentheses  in  each 
expression. 

'Two  operations  must  not  appear  adjacent  to  each  other  in  formulas;  e.g.  /  - 
or  *  *  -  . 

Any  operation  on  integers  which  does  not  yield  an  exact  integer  result  is 
truncated  except  negative  integer  results  of  division  on  BRLESC  FORTRAN  will  give 
the  greatest  integer  that  does  not  exceed  the  algebraic  exact  result.  Thus  -4.2 
will  give  -5.  This  is  probably  different  than  results  on  the  7090  or  other  abso¬ 
lute  value  machines. 

For  709/7090  and  BRLESC  FORTRAN,  boolean  expressions  are  allowed  and  are 
designated  on  cards  with  a  B  in  column  one.  The  symbols  +,  *,  -  denote  the  logi¬ 
cal  operations  of  or  (inclusive),  and,  and  complement  respectively,  BRLESC  FORTRAN 
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performs  these  operations  only  on  the  rightmost  36  bits  of  a  word  so  that  it  is 

frimrtflf.i'hl  p  wi  -fh  -hV>^  "hn-f  t.rr»-rrl  "lo-nrr+'h  rx?  4-Vio  7HQ /TnQn  q  T  qq/It  -T  4-  r-  ^-p 

-L-  ^  '-'J-  wuw  |  vy  ^  j  vyv  ■  xuvj  x^au.xxig  ^/£_  ui  t  D  VJX 

a  BRLESC  word  will  be  zeros  after  a  logical  operation. 

Double  Precision  arithmetic  expressions  are  allowed  (a  D  in  col.  l)  but  are 
done  in  BRLESC  single  precision  which  is  as  accurate  as  709/7090  double  precision. 


nAYMVv  1  QV  o  Y»n  +■  Vlwcf  •?  r\  ftvr\v>  v-i  /-*  n  vi^  -«vi  /\n/\w+l  ir  <-<  1  ~\  rtr  T/n  J  •?  v<  T)  TOT"  TTIPP  THAT^fTTn  A  TVT 

ux  ±  oiuuuuxu  cApi  cooiuiiD  ai  c  uut  pi  cociiox^  aiiuwcu  J.11  -Drv Lir.oi ,  r  ur\±Tlf-il^  , 


An  I  in  column  one  will  cause  an  error  print. 


The  general  form  of  FORTRAN  arithmetic  formulas  (arithmetic  statements)  is 

v  =  ae 

where  v  is  a  name  of  a  variable  (it  may  be  subscripted)  and  ae  is  an  arithmetic 
expression.  An  example  would  be 

a(,j  +  x)  =  ayj  )**2  -  v/yx  +  o.; 

The  arithmetic  expression  is  evaluated  and  the  result  is  stored  as  the  new 
value  of  the  variable  whose  name  is  on  the  left  of  the  =  symbol. 

No  arithmetic  may  be  performed  on  the  left  of  the  =  symbol  except  for  subscript 
arithmetic.  Only  one  =  symbol  is  allowed  and  hence  only  one  variable  will  have  its 
value  changed  by  an  arithmetic  formula. 

The  arithmetic  expression  may  be  just  a  name  of  a  variable  or  constant,  e.g. 

X  =  A. 


VI.  SPECIFICATION  STATEMENTS 

This  group  of  statements  (DIMENSION,  EQUIVALENCE,  COMMON  and  FREQUENCY)  pro- 

,  r"i  «  v*wi  n  ^  r\  /vwi*i  -?  T  /%v»  n  vs/5  wi  mr  V\  /-\  nr*  r~\  T-\t  r  4-V^  rr*w>«  mm  ~v>  4-^  4-ln^ 

v  luco  iiiiui  iucx  o  J- o/Ii  oo;  one  toiiipiici  anu  iiict  j  ue  uocu  uj  one  pi  051  aumici  00  luuoi  ox  one 

storage  assignment  of  some  or  all  of  the  variables.  These  statements  do  not  cause 
any  machine  code  to  be  generated  for  running  the  program,  they  only  affect  the  way 

■?  +■  *i  c  r»rvnm*i  1 

_i_  -i _  w  • 

1.  DIMENSION  a(i),  b(il,i2),  c( i3, iU, i5 ),  . ,  where  a,b,c  are  array 

kiqtviqc  *3  vo  4-  V>  t  t  c  o  i  nf  orpcsY1  r'Ancf  onf  o 

uuiuvu  uuu  ynv.  _u  kj  ui  v,  xui/k.gk.j.  wviiwwuuviJ! 

This  statement  is  used  to  declare  the  names  and  maximum  sizes  of  arrays. 

fTTU wir-k  v? -wvitwi  o-n’K  f<or>T  -n4-  c  n  -w->  a  ovial  a  oq^  -?  v-i  rNO  ror  +  Vioofi  o  q  v-ir^  4-  Vi  enr  rrn  i  of  V\  q  r»  n  -m  q  "I  n  whorfOY1 

iiiC  iliaAlUUill  ouuoli  XpUO  O.X.  v_iiv — ukj  xu  peix  v-n  wii'-  u\,  i_>  unu.  u<  j.j.'— jr  iuu.u  vj  v,  xmu-i.  xuv-guj. 

constants,  not  variables.  The  minimum  subscript  is  always  taken  to  be  one.  One, 

two,  or  three  dimensional  arrays  may  be  defined  in  any  sequence. 

nTwrRTJ.qTnw  >WIn  bYfinb'P,lrli.li.lihA(,i.7l 

\  •  —  /  7  -*A  —  ~  i  7  —  \  7  '7  '  /  7  ~  7  i  7 

1 1 1 


2.  EQUIVALENCE  (a,b, c, (d, e,f, . ),  where  a,b,c,d,e,f  are  names  of 

any  type  of  variable. 

This  statement  causes  different  names  to  be  assigned  to  the  same  memory 
space.  (It  performs  the  same  function  as  SYN  does  in  FORAST. )  All  the  names 
within  a  set  of  parentheses  are  made  equivalent.  Increments  may  be  used  if  desired 
by  enclosing  them  in  parentheses  immediately  after  the  name.  (No  increment  is 
the  same  as  an  increment  of  one. ) 

3.  COMMON  a.b.c,d.e  . . .  where  a,b,c,d,e  are  the  names  of  variables  of 

any  type. 

This  statement  allows  the  programmer  to  specify  that  certain  variables 
and  arrays  are  the  same  in  more  than  one  program  or  subprogram  ( subroutine  or 
function).  The  storage  assigned  to  those  iters  in  the  COMMON  statement  in  one 
subprogram  is  the  same  storage  assigned  to  the  items  in  the  COMMON  statements  in 
all  of  the  other  subprograms  (and  also  the  main  program).  Thus  it  also  has  an 
equivalence  effect  between  subprograms.  All  storage  used  in  each  subprogram  is 
different  than  the  storage  in  any  other  subprogram  except  for  the  items  that  are 
listed  in  COMMON  statements. 

Within  each  subprogram,  all  COMMON  variables  are  assigned  consecutively 
in  the  sequence  in  which  they  appear.  The  starting  point  for  all  the  subprograms 
within  each  total  program  is  the  same.  Proper  space  is  left  for  arrays. 

COMMON  statements  are  used  to  avoid  listing  many  arguments  when  using 
a  subprogram.  By  forcing  subprograms  to  use  the  same  storage  as  the  main  program 
for  some  (and  possibly  all)  of  the  variables,  the  need  for  specifying  and  moving 
variables  is  removed. 


If  any  COMMON  variable  also  appears  in  an  EQUIVALENCE  statement,  the 
COMMON  assigning  has  priority  and  is  done  first  in  BRLESC  FORTRAN.  This  is  dif¬ 
ferent  than  709/7090  FORTRAN  where  EQUIVALENCE  variables  are  assigned  first  and 
will  change  the  sequence  of  storage  assigned  to  COMMON  variables.  BRLESC  FORTRAN 
handles  the  COMMON- EQUIVALENCE  interaction  as  specified  for  FORTRAN  IV  and  in  fact 
allows  labeled  (block)  COMMON  and  array  definitions  in  COMMON  the  same  as  PORTRAIT  IV. 

4.  FREQUENCY. 

This  statement  is  ignored  by  BRLESC  FORTRAN  .  Its  purpose  in  709/7090 
FORTRAN  is  to  provide  information  that  helps  the  compiler  to  optimize  the  program. 
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VII.  CONTROL  STATEMENTS 


This  group  of  statements  provides  for  controlling  the  sequence  in  which 
statements  are  executed  in  the  running  program.  Unconditional  transfer  of  control 
(sometimes  called  branching  or  jumping)  is  provided  for  by  several  types  of  GOTO 
statements  and  conditional  transfer  of  control  is  provided  by  several  types  of  IF 
statements.  A  DO  statement  allows  definition  of  a  "loop"  and  a  CALL  statement 
causes  transfer  of  control  to  a  subroutine  with  a  return  to  the  next  statement. 
There  are  two  statements  (STOP  and  PAUSE)  that  cause  the  program  to  stop  running. 


1.  GOTO  s  where  s  is  a  statement  number. 

This  statement  causes  the  statement  numbered  s  to  be  done  next. 

Example :  GOTO  22 

2.  GOTO  (  si,  s2,  s3> . . .  ),  i  where  si, s2, s3  are  statement  numbers  and  i  is  a 
nonsub  scripted  integer  variable. 

This  is  referred  to  as  a  "computed  GOTO"  and  the  statement  done  next 
depends  on  the  value  of  i.  If  i  =  1,  si  is  done  next;  if  i  =  2,  s2  is  done  next: 
etc. 

Example:  GOTO(4,19,462),K 

3.  ASSIGN  s  TO  i  where  s  is  a  statement  number  and  i  is  a  nonsub scripted 
integer  variable. 

This  statement  causes  the  address  of  the  statement  numbered  s  to  be  put 
into  the  integer  variable  i  and  this  type  of  statement  is  to  be  executed  before 
the  "assigned  GOTO"  statement  (as  explained  in  the  next  paragraph)  is  executed. 

Example:  ASSIGN  64  to  M 

4.  GOTO  i,  (sl,s2, s3, _ )  where  i  is  a  nonsubscripted  integer  variable 

and  si, s2, s3,  are  statement  numbers. 

This  statement  transfers  control  to  the  statement  that  has  the  number 
that  was  last  assigned  to  i  by  means  of  an  ASSIGN  statement.  The  ( si, s2, s3. . . . ) 
enumeration  in  this  statement  is  not  really  necessary  but  should  be  used  to  list 
the  possible  statement  numbers  that  this  "assigned  GOTO"  statement  may  transfer 
control  to. 

Examples:  ASSIGN  44  to  N 

GOTO  N,  (16,29,44,192) 

5.  IF  (ae)  si, s2, s3  where  ae  is  an  arithmetic  expression  and  si, s2, s3  are 
statement  numbers. 
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This  statement  causes  control  to  be  transferred  to  statement  sl,s2,  or 
s3  depending  on  whether  the  value  of  the  arithmetic  expression  ae  is  negative, 
zero  (exactly),  or  positive  respectively. 


Wom-nl  oc  •  tWyH  n  oo 

.  _l_L  J  }  |  ) 


IF(R  *  V  -  4. 1*(U+V) )l6, 244, 16 

DO  s  i  =■  il,  i2,  i3  where  s  is  a  statement  number,  i  is  a  nonsub  scripted 
integer  variable  and  il,i2,i3  are  integer  constants  or  non sub scripted  integer 
variables. 


This  statement  causes  the  statements  following  this  DO  statement  up  to 
and  including  the  statement  numbered  s,  to  be  executed  repeatedly  with  the  integer 
variable  i  initially  assuming  the  value  of  il.  The  variable  i  is  incremented  by 
i3  at  the  end  of  the  sequence  of  statements  and  the  sequence  is  repeated  if  the 
value  of  i  does  not  exceed  i2.  The  specification  of  i3  is  optional.  If  i3  is 
not  specified,  its  value  is  taken  as  one  (l). 

A  DO  sequence  of  statements  may  itself  contain  a  DO  sequence  provided 
the  entire  inner  DO  sequence  is  contained  in  the  outer  one.  Several  DO's  may 
terminate  on  the  same  statement. 


While  most  versions  of  FORTRAN  have  several  other  restrictions  concerning 
DO  loops,  BRLESC  FORTRAN  does  not  have  any  other  restrictions  on  the  construction 
of  the  statements  that  are  included  in  DO  loops.  BRLESC  FORTRAN  does  always  set 
and  use  the  actual  integer  variable  specified  for  i  in  a  DO  statement  and  its  final 
value  (plus  the  increment  for  normal  termination  of  the  DO  loop)  is  always  stored 
there. 

Examples:  DO  42  K  =  1,L 

DO  3  JT  =  MIN,  55,  NSTEP 

7.  CONTINUE 

This  is  a  dummy  statement  that  generates  no  object  code  except  when  it  is 
the  last  statement  in  a  DO  loop.  Its  statement  number  is  always  used  if  it  has  one. 
It  must  be  used  as  the  last  statement  in  a  DO  loop  whenever  the  last  statement  would 
have  been  an  IF  or  GOTO  type  of  statement  that  transfers  control.  Whenever  a 
CONTINUE  statement  is  the  last  statement  in  a  DO  loop,  its  statement  number  is  the 
location  of  the  machine  instructions  that  increment  the  DO  variable  and  test  it  for 
its  maximum  value. 


8.  STOP  or  STOP  w  where  w  is  an  octal  constant  that  is  ignored. 

This  statement  causes  the  running  program  to  be  terminated  and  should 


only  be  used  to  indicate  that  the  program  has  run  to  completion. 


TDTDT  TOPn  T71/VT“jnTr>  A  TVT  4-  ,-v  +■  V*  m  vf-  r>n  +■  "huff1  PT  T*  QT.7  *1 

Causes  PH  I  liDOl,  J  uniiw^  Oil  DilC  OO UUbpilb  U  Ol  r  Cr  ;  j.  n  n- 


+•>!  £ 


This  statement 

Q-h»  nrl  n  mitnilt 
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tape  if  it  should  be  rewound,  check  for  overflows  and  halt  at  N40.  On  BRLESC, 
the  program  may  also  be  terminated  by  reading  a  card  or  tape  line  that  has  the 
first  ten  characters  of  either  "ENDbTAPEbb"  or  "bbbbbbPROB"  where  b  represents  a 
blank. 

Examples:  STOP 

STOP  77 


9.  PAUSE  or  PAUSE  w  where  w  is  an  octal  constant. 

This  statement  causes  the  program  to  halt  and  display  the  octal  constant. 
(BKLESC  displays  it  in  the  a.  address  of  the  halt  order.)  If  the  computer  is 
re-started  manually  by  pressing  the  proper  button  (initiate  on  BRLESC),  the  pro¬ 
gram  will  continue  with  the  next  statement. 


it. 


This  statement  should  not  be  used  without  a  very  good  reason  for  using 


Examples :  PAUSE 

PAUSE  421 


10.  CALL  a(b,c,d,  .  .  . .  ). 

This  statement  causes  the  subroutine  named  "a"  to  be  entered  and  executed 
with  b,c,d. ..  as  the  arguments,  parameters,  and  store  addresses.  (Arithmetic 
expressions  are  allowed. )  For  BRLESC  FORTRAN,  "a"  could  be  the  name  of  a  function 
(a  subroutine  with  one  result)  and  the  subroutine  being  called  must  be  one  that 
is  a  standard  one  on  the  compiler  tape  or  one  whose  code  is  included  in  the  pro¬ 
gram  as  a  SUBROUTINE  (or  FUNCTION). 

The  arguments  used  in  a  CALL  statement  must  agree  in  mode  with  the  mode 
of  the  dummy  variables  that  were  used  when  the  subroutine  was  defined.  If  there 
are  no  arguments,  they  may  be  omitted. 

CALL  EXIT  or  CALL  DUMP  statements  on  BRLESC  are  the  same  as  a  STOP  state¬ 
ment.  CALL  CHAIN  causes  an  error  print  and  CALL  PDUMP  is  ignored. 


Alphanumeric  arguments  are  not  allowed  in  BRLESC  FORTRAN. 
Examples:  CALL  SUB5(X,Y,R) 

CALL  TOTAL 


UTTP  (  nr.TTmnTT  -r  \  -,n 

.  ±r  \  DiJjdori  owj.±\yii  1)  Sj_ ,  ^ . 

This  statement  transfer  control  to  statement  si  or  s2  if  sense  switch  i 
(l  <  i  <  6)  is  down  or  up  respectively,  (i  must  be  a  constant.)  On  BRLESC,  the 
manual  read  switches  15-20  are  used  as  sense  switches  1-6  respectively.  However, 
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these  switches  may  be  "preset"  by  a  program  control  card  to  be  either  "down"  or 
"up"  regardless  of  their  actual  position.  (See  SETSSW  in  Section  XV.) 

Example:  IF  (SENSE  SWITCH  3)14,92 

12.  SENSE  LIGHT  i  where  i  is  0,1,2, 3,  or  4. 

If  i  is  0,  then  all  sense  lights  are  turned  off.  If  1  <  i  <  4  (actually 
6  on  BRLESC ) ,  sense  light  i  only  will  be  turned  on.  The  rightmost  four  (actually 
six)  bits  of  cell  062  on  BRLESC  are  used  as  sense  lights.  Initially  on  BRLESC, 
all  of  them  are  off. 

Example:  SENSE  LIGHT  2 

13.  IF( SENSE  LIGHT  i)sl,s2 

If  sense  light  i  is  on,  statement  si  is  done  next  otherwise  statement 
s2  is  done  next. 

Example:  IF  (SENSE  LIGHT  2)67,39 

14.  IF  ACCUMULATOR  OVERFLOW  si, s2 

This  statement  checks  for  fixed  point  add- subtract  or  shift  overflow  on 
BRLESC  and  does  statement  si  next  if  it  has  occurred.  Otherwise  statement  s2  is 
done  next.  (The  very  last  operation  may  not  be  included  in  the  check  on  BRLESC 
and  this  test  turns  the  indicators  off  if  they  were  on  before. ) 

15.  IF  QUOTIENT  OVERFLOW  si,  s2 

This  does  exactly  the  same  as  the  IF  ACCUMULATOR  OVERFLOW  statement 
explained  above. 

16.  IF  DIVIDE  CHECK  si, s2 

On  BRLESC  FORTRAN,  this  statement  checks  for  floating  point  division  by 
zero  (or  unnormalized  divisor)  or  fixed  point  division  overflow.  If  either  has 
occurred  in  the  program,  statement  si  is  done  next;  otherwise  s2  is  done  next. 

(The  very  last  operation  in  the  previous  statement  may  not  be  included  in  this 
test  on  BRLESC  and  this  test  turns  the  indicators  off  if  they  were  on  before.) 

VIII.  THE  FORMAT  STATEMENT 
FORMAT  (Special  Specifications) 

This  statement  is  not  executed  but  is  used  to  specify  the  field  lengths, 
spacing  and  the  form  of  the  data  for  either  the  reading  of  input  data  or  the  print¬ 
ing  (or  punching)  of  output  data.  It  is  always  used  in  conjunction  with  one  of 
the  input-output  statements  and  does  nothing  by  itself. 
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Let  n  =  number  of  times  to  repeat  this  field.  (n  is  optional,  used  as  1  if 
not  specified. ) 

w  =  the  width  of  the  field  (the  number  of  columns  or  characters), 
d  =  the  number  of  decimal  places  to  the  right  of  the  decimal  point.  (d 
is  used  modulo  10  on  709/7090  but  not  on  BRLESC. ) 

Then  the  types  of  fields  that  may  be  specified  are; 
for  integer  numbers. 

for  floating  point  numbers  with  exponents, 
for  floating  point  numbers  without  exponents, 
for  spacing  or  blank  columns, 
for  alphanumeric  fields. 

for  alphanumeric  ( holler ith)  fields  where  the  characters  are 
read  into  or  printed  from  the  w  characters  following  the  H  in 
the  FORMAT  statement  itself, 
for  Octal  numbers. 


nlw 

nEw.d 

v\T7*t  t 

I1T  w  •  U. 

wX 

nAw 

wH 

nOw 


Consecutive  field  specifications  are  separated  by  commas,  thus  "FORMAT 
(I6,3E14.6,  F10.7)"  is  an  example  of  a  FORMAT  statement.  Each  complete  FORMAT 
statement  specifies  the  maximum  length  of  the  record  (card  or  printer  line)  that 
will  be  read,  printed  or  punched  when  that  FORMAT  is  used. 


Two  sets  of  parentheses  are  allowed  in  709/7090  FORTRAN  and  four  sets  are 
allowed  in  BRLESC  FORTRAN  so  that  groups  of  specifications  may  be  repeated  within 
a  FORMAT  statement.  A  left  parenthesis  may  be  preceded  by  an  integer  n  to  indicate 
the  number  of  times  to  repeat  the  specifications  enclosed  in  parentheses.  Thus 


FORMAT  (E12.5,3(l6,F9.3))  would  be  a  format  where  the  l6,F9-3  portion  would  be 
repeated  three  times. 


If  the  input-output  statement  list  contains  more  items  than  specified  by  the 
FORMAT  being  used,  then  a  new  card  or  line  is  begun  and  the  FORMAT  is  repeated  from 
its  rightmost  left  parenthesis.  If  this  parenthesis  is  preceded  by  a  repeat  number, 
it  will  be  used  in  BRLESC  FORTRAN  while  the  709/7090  manuals  do  not  indicate  that 
it  would  be.  If  the  FORMAT  specifies  more  fields  than  required  for  an  input-output 
list,  the  rest  of  the  FORMAT  is  ignored  except  any  H  fields  that  follow  the  last 
number  will  be  used. 


A  slash  "/"  may  be  used  in  a  FORMAT  statement  to  indicate  that  a  new  card  or 
line  should  be  started.  Thus  FORMAT  (IIO/EI5.6)  used  for  punching  cards  would 
cause  a  ten  column  integer  to  be  on  one  card  and  a  fifteen  column  floating  point 
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number  to  be  on  the  next  card.  If  a  slash  is  used  where  a  new  line  starts  any- 
way,  it  is  ignored  except  N+l  consecutive  slashes  will  always  cause  N  blank  lines 
or  cards  (or  skip  N  cards  for  input). 


Scale  factors  may  be  used  with  F  type  specifications  (and  in  a  limited  way 
with  E  type  specifications).  An  integer.  s,  specifies  the  power  of  ten  (scale 
factor)  to  multiply  the  internal  number  by  to  obtain  the  external  number,  i.e. 
input  numbers  get  divided  by  10"  (not  on  BRLESC)  and  output  numbers  get  multiplied 

g 

by  10  .  The  integer  s  is  written  in  front  of  the  nFw.d  specifications  and  the 

letter  P  is  used  to  separate  s  and  n,  e.g.  -2P1F10.5  or  -2EF15.5  specify  a  scale 
..-2 

factor  of  10  .  On  BRLESC  FORTRAN,  either  a  +  or  a  -  sign  in  front  of  s  is  used 

as  a  minus  sign.  Therefore  never  write  +  signs  in  front  of  s.  Once  s  has  been 
specified,  the  scale  factor  remains  in  effect  for  the  rest  of  that  FORMAT  state¬ 
ment  (including  repetitions)  and  will  be  used  on  subsequent  E  and  F  type  fields. 

A  OP  specification  may  be  used  to  reset  it  to  0.  For  input,  a  punched  decimal 
point  overides  both  the  scale  factor  and  the  d  specified.  For  E  fields,  only  a 
positive  scale  factor  may  be  used  and  it  does  not  change  the  value  of  the  number, 
it  only  indicates  that  s  digits  should  be  printed  in  front  of  the  decimal  point, 
(it  has  no  meaning  for  input  E  fields.)  Thus  the  number  2  would  normally  print 
0.20E01  for  s  =  0,  but  for  s  =  1,  it  would  print  2.00E0Q  and  s  =  2  would  print 
20.00E-01. 


I  Fields 

Input :  Most  FORTRAN  compilers  assume  the  integer  to  be  punched  at  the  right 
end  of  the  field  without  a  decimal  point;  however,  BRLESC  FORTRAN 
will  accept  it  any  place  within  the  field  and  it  may  have  a  decimal 
point. 

Output :  The  integer  will  be  punched  at  the  right  end  of  the  field  with  a 

floating  sign.  (All  output  has  a  floating  sign  which  means  that  the 
sign  is  in  the  column  preceding  the  leftmost  digit  that  is  printed. 
Leading  zeros  are  not  printed  on  I  or  F  fields. ) 


E  Fields 


Input :  The  number  may  or  may  not  have  an  exponent.  An  E  or  a  sign,  but  not 
a  blank,  may  be  used  to  indicate  the  starting  of  the  exponent.  The 
exponent  may  be  less  than  four  columns.  If  a  decimal  point  is  punched, 
it  is  used  and  overides  the  s  and  d  specification.  If  no  decimal 
point  is  punched,  then  it  is  assumed  to  be  after  d  digits  (columns) 
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left  from  the  start  of  the  exponent.  Most  FORTRAN  compilers  require 
that  the  number  be  punched  at  the  right  end  of  the  field,  but  BRLESC 
FORTRAN  allows  it  anywhere  within  the  field.  Blank  columns  are  used 
as  zeros  (except  after  the  exponent  on  BRLESC). 


Output :  The  floating  point  number  will  be  printed  with  a  four  column  exponent 
that  includes  an  E,  a  sign,  and  two  digits  for  the  value  of  the  expo¬ 
nent.  A  decimal  point  is  printed  d  digits  from  the  right  end  of  the 
co si'f'ic isn't  and.  if  s  =  0^  a  zsnc  is  pr inisd  in  front}  of  "t-lis  dsciinal 
point.  If  s  >  1,  then  s  digits  of  the  coefficient  are  printed  to 
the  left  of  the  point.  The  sign  immediately  precedes  the  first  digit 
printed.  The  entire  number  is  printed  at  the  right  end,  of  the  field 
of  w  columns. 


F  Fields 

Input :  The  same  as  E  fields,  see  above.  (This  may  not  be  strictly  true  for 
709/7090  but  will  generally  give  the  desired  result  except  possibly 
for  the  use  of  a  scale  factor.) 

Output :  The  floating  point  number  will  be  printed  without  an  exponent  and  the 

decimal  point  will  be  printed  d  digits  from  the  right  end  of  the  field. 

g 

The  actual  number  printed  is  10  times  the  number  that  is  in  the  com¬ 
puter. 

H  Fields 

Input :  The  alphanumeric  information  is  stored  in  the  FORMAT  statement  itself 
immediately  following  the  H.  No  transformation  of  characters  is  done, 
the  sign  option  setting  for  numeric  input  on  BRLESC  has  no  effect  on 
H  fields. 


Output:  The  w  alphanumeric  characters  that,  immediately  follow  the  H  are 

printed.  Blanks  are  not  ignored  and  there  is  no  transformation  of 
any  of  these  characters.  Thus  on  BRLESC,  "(+  -  "  characters  will  not 
be  the  ones  intended  if  the  deck  was  punched  using  standard  FORTRAN 
characters  at  some  other  installation.  (The  CHANGE  +  AND  -  control 
card  does  not  change  the  +  and  -  signs  in  H  fields. )  For  tape  output, 
if  an  H  field  occurs  at  the  beginning  of  a  line,  the  first  character 
is  used  for  vertical  high  speed  printer  format  control  instead  of 
actually  getting  printed. 
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A  Fields 


Input : 


This  causes  w  alphanumeric  characters  to  be  stored  in  the  variable 
name  that  is  on  the  input  list.  To  be  compatible  with  709/7090, 

BRLESC  FORTRAN  stores  a  maximum  of  six  characters  per  word  at  the 
right  end  of  the  word.  If  w  <  6,  the  characters  will  be  at  the  left 
of  the  36  bits  with  blanks  to  fill  out  the  word.  For  BRLESC  only,  if 
w  >  6,  then  the  additional  characters  will  be  stored  in  the  next  con¬ 
secutive  word(s),  six  per  word.  As  with  H  fields,  no  transformation 
of  characters  is  done.  This  can  be  used  to  read  FORMAT  specifications 
at  run  time. 

Output :  This  causes  w  alphanumeric  characters  to  be  printed  from  the  contents 
of  the  variable  name  that  is  on  the  output  list.  The  rules  listed 
above  for  A  input  are  followed  so  that  whatever  is  read  will  be 
printed  exactly  the  same. 

X  Fields 

Input :  This  causes  w  columns  to  be  skipped  whether  they  are  blank  or  not. 

Output :  Causes  w  blank  columns  to  be  printed. 

0  Fields 

Input :  This  allows  octal  numbers  to  be  read  and  stored  at  the  right  end  of 
BRLESC  words  in  the  same  manner  as  integers.  (There  is  no  left  nor¬ 
malization.  ) 

Output :  This  allows  integers  (octal  or  decimal)  to  be  printed  in  octal  form 
at  the  right  end  of  the  field. 

FORMAT  statements  may  be  placed  anywhere  within  a  program  (or  subprogram)  except 
as  the  first  statement  within  a  DO  loop.  (This  restriction  does  not  apply  to  BRLESC 
but  should  be  followed.  On  BRLESC,  FORMAT  statements  are  done  as  NOP  instructions 
so  it  is  best  not  to  place  them  where  they  will  be  done  often.  )  FORMAT  statements 
are  kept  as  alphanumeric  information  and  decoded  at  run  time,  thus  it  is  permis¬ 
sible  to  use  A  fields  to  read  FORMAT  statements  (without  the  word  FORMAT)  at  run 
time.  The  variable  names  of  such  statements  must  be  listed  in  a  DIMENSION  state¬ 
ment  for  709/7090  but  is  not  required  for  BRLESC. 

If  the  list  in  an  output  list  is  exhausted  and  the  next  item  in  a  FORMAT  state¬ 
ment  is  an  H  field,  the  H  field  is  printed.  (if  the  end  of  FORMAT  and  list  occur 
at  the  same  time  and  an  H  field  follows  the  last  left  parenthesis,  it  will  not  be 
printed. )  Note  that  a  FORMAT  may  contain  nothing  but  one  or  more  H  fields. 
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Blank  characters  in  a  FORMAT  statement  are  ignored  except  within  H  fields. 
The  w  count  for  an  H  field  must  include  the  blanks  within  the  H  field. 


The  comma  separating  field  specifications  may  be  omitted  when  it  follows  an 
H  or  X  field  specification  or  would  precede  or  follow  a  parenthesis  or  slash. 
(This  rule  may  not  hold  for  all  computers  but  is  true  for  BRLESC. ) 


Examples:  F0RMAT(3I5? (E15 . 8) ) 

FORMAT( 2HX=,F10 . 4, k( 1PE12 .  5 ) ) 
F0RMAT( 6F10 . h /4ll0// ) 


IX.  DESCRIPTION  OF  INPUT-OUTFJT  LISTS 

The  names  of  the  variables  to  be  transmitted  between  the  computer  and  the 
input-out  devices  are  specified  on  a  list  in  the  proper  type  of  input-output  state¬ 
ment  and  the  sequence  of  the  names  on  the  list  determines  the  sequence  of  trans¬ 
mission.  Simple  variable  names,  subscripted  array  names  where  the  subscript  control 
is  either  specified  in  other  statements  or  within  the  input-output  list,  and  array 
names  without  subscripts  are  allowed.  Array  names  without  subscripts  cause  the 
entire  array  to  be  transmitted  and  the  elements  must  (for  input)  or  will  (for  out¬ 
put)  be  arranged  in  the  same  sequence  that  they  have  in  the  computer  memory. 

(BRLESC  and  709/7090  vary  the  subscripts  from  left  to  right,  thus  two  dimensional 
arrays  are  stored  by  columns;  i.e.  A(l,l),  A(2,l),  A(3,l)  etc.  is  the  sequence  of 
elements  of  the  array  A. )  Commas  are  used  to  separate  the  names  on  an  input-output 
list. 


Indexing  information  specified  within  the  list  is  written  after  the  names  of 
variables  to  which  it  applies  and  the  names  and  the  indexing  information  are  all 
enclosed  in  parentheses.  For  example  A,  (B(l),  I  =  1,10)  would  cause  the  trans¬ 
mission  of  A,  B( 1 ) ,  B(2),  ....  B(l0).  Note  that  the  indexing  information  is  writ¬ 


ten  the  same  as  in  a  DO  statement  with  the  increment  taken  as  one  if  it  is  not 
written.  It  is  permissible  to  nest  these  parentheses,  e.g.  ((A(l,j),I  =  1,5')? 

J  =  1,5).  Note  that  commas  are  used  to  separate  items  on  the  list  and  must  be  usee 
after  a  right  parenthesis  except  for  the  last  one.  The  indexing  within  each  set 
of  parentheses  is  done  to  completion  before  going  on  to  the  next  indexing  specifi¬ 
cation. 


All  of  the  input-output  statements  that  transfer  alphanumeric  (not  binary) 
data  make  use  of  a  FORMAT  statement  to  specify  the  field  types  and  lengths.  The 
type  (integer  or  floating  point)  of  a  name  specified  on  an  input-output  list  must 
correspond  to  the  type  of  field  specified  in  the  FORMAT  statement  that  is  being 


used.  All  integer  variables  must  use  I  fields  and  all  floating  point  variables 
must  use  E  or  F  fields.  (BRLESC  does  allow  integers  to  be  printed  as  integers  in 
E  or  F  fields.)  The  FORMAT  controls  the  maximum  length  of  each  line.  A  line  is 
shorter  than  specified  in  a  FORMAT  only  when  the  end  of  the  list  is  reached  before 
the  end  of  the  FORMAT.  Whenever  the  end  of  the  FORMAT  is  reached  before  the  end 
of  the  list,  the  FORMAT  is  repeated  from  the  last  right  parenthesis  and  a  new  line 
(or  card)  is  started.  (See  Section  VIII  for  more  information  about  FORMAT  state¬ 
ments.  ) 


Constants  and  arithmetric  expressions  are  not  permitted  on  input -out put  lists 
except  indexing  information  may  contain  constants  and  subscripts  may  be  constant 
or  arithmetric  expressions. 

It  is  permissible  to  read  an  integer  variable  and  use  it  as  a  subscript  within 
the  same  input  list  if  its  name  is  separated  from  the  place  it  is  used  by  at  least 
two  left  parentheses.  (This  is  counting  the  one  used  to  indicate  a  subscripted 
variable.  Extra  parentheses  may  be  used  just  to  meet  this  requirement.)  Thus 
J,(B(J))  is  an  example  where  the  value  of  the  variable  J  just  read  will  be  used  as 
the  subscript  for  B(J).  (For  BRLESC,  the  extra  parentheses  are  not  required  if 
two  or  more  variables  or  any  indexing  information  separates  the  integer  from  where 
it  is  used. ) 

Examples:  A,  B,  I 

N,  M,  (BA(n)),P 

( (A( I,  J),  J  =  1,10),  I  =  1,10),  (R(K),  K  =  2,20,2) 


X.  INPUT- OUTPUT  STATEMENTS 


The  following  group  of  statements  may  be  used  in  FORTRAN  to  control  the  flow 
of  information  between  the  computer  and  input-output  devices  or  secondary  storage. 
Card  reading  or  punching,  magnetic  tapes  and,  on  some  computers  but  not  on  BRLESC, 
drums  may  be  used  to  read  or  record  data.  Most  of  the  statements  also  use  a  FORMAT 
statement  to  control  the  conversion  of  data  between  computer  form  and  printer  or 


card  form.  However,  the  READ  TAPE  and  WRITE  TAPE  (and  the  corresponding  DRUM  state¬ 


ments  on  computers  that  allow  them)  cause  the  transfer  of  data  without  any  conver¬ 
sion.  This  computer  form  of  data  will  be  referred  to  as  binary  information  and 
actually  is  binary  numbers  for  a  binary  computer  such  as  BRLESC.  The  other  state¬ 


ments  cause  the  reading  or  printing  of  data  in  alphanumerical  form.  There  are 
three  statements,  END  FILE,  REWIND  and  BACKSPACE  that  do  not  transfer  data  but  can 
be  used  to  manipulate  the  magnetic  tapes. 
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In  all  of  the  input-output  statements  described  below: 
f  is  a  FORMAT  statement  number  or  name. 

"list"  is  any  allowable  input-output  list  (See 
t  is  a  magnetic  tape  number  or  variable.  (See  BRLESC  restrictions 

on  t  at  end  of  this  section.) 

READ  f,  list 

This  statement  causes  decimal  and  alphanumeric  data  to  be  read  from  cards 
(or  tape  6  on  BRLESC  if  the  cards  have  been  put  on  tape  off-line  and  console 
switch  36  is  up.)  (BRLESC  may  use  all  80  columns  for  either  input  or  output  cards.) 
If  the  list  is  omitted  on  this  statement,  one  card  will  be  read  and  ignored  on 
BRLESC. 


PUNCH  f,  list 

This  statement  causes  decimal  and  alphanumeric  data  to  be  punched  on  cards 
(or  actual  tape  13  if  console  switch  38  is  up.  The  tape  output  will  be  "formatted" 
for  the  high  speed  printer  by  adding  a  1  character  at  the  beginning  of  each  "card" 
and  an  end-of-line  character  "A"  at  the  end  of  each  "card".  The  block  length  will 
be  at  least  860  characters.)  All  80  columns  of  a  card  may  be  used  on  BRLESC  and 
for  tape  13  output,  the  "card"  may  be  up  to  l60  columns  long. 

PRINT  f,  list 

For  most  computers,  this  statement  means  to  print  the  data  on  an  on-line 
printer.  Since  BRLESC  does  not  have  an  on-line  printer,  the  data  is  put  on  actual 
tape  13  for  off-line  printing.  The  maximum  line  length  for  most  computers  is  120 
characters,  but  is  160  characters  on  BRLESC. 


The  following  description  generally  applies  only  for  BRLESC.  If  the  first, 
character  of  a  line  comes  from  an  H  field,  it  will  be  used  for  vertical  format 
control  (after  a  transformation)  and  not  printed.  If  the  first  character  does  not 
come  from  an  H  field,  an  extra  "1"  character  (single  space)  is  inserted  at  the 
beginning  of  the  line.  In  either  case,  the  zone  bits  will  be  set  to  01  so  that  it 
is  possible  to  print  PRINT  output  separately  from  PUNCH  output  when  both  are  on 
tape  13.  The  end-of-line  character  "A"  is  automatically  inserted  at  the  end  of 
each  line.  The  tape  writing  is  parity  checked  but  there  is  no  checking  for  end  of 
reel.  The  tape  block  length  is  at  least  860  characters  and  this  allows  about 
5  million  characters  or  60,000  lines  of  80  characters  each  on  a  reel  of  BRLESC  tape. 

For  BRLESC,  a  control  card  may  be  used  to  change  all  PRINT  statements  to 
PUNCH  statements. 
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This  statement  causes  decimal  and  alphanumeric  input  data  to  be  read  from  taT>e 


«V,  ff  1 


He  Of  d-cTocl  IS  3. S Sllmcu.  oO  be  a  separate  record  (block)  on  tape  and  may 
be  as  long  as  120  characters  (l60  on  BRLESC ) .  If  the  tape  was  previous  output 
that  has  a  vertical  format  character  at  the  beginning  of  each  line,  provision 
must  be  made  in  the  FORMAT  for  skipping  that  character,  (if  the  tape  was  previous 
BRLESC  output.,  the  first  character  is  probably  not  a  blank.)  The  tape  reading  is 
parity  checked  on  BRLESC  but  there  isn't  any  checking  for  end  of  reel. 

If  the  "list"  is  omitted  with  this  statement,  it  will  cause  one  line  to  be 
read  and  ignored  on  BRLESC. 


Just  INPUT  may  be  used  instead  of  READ  INPUT  TAPE  in  this  statement  on  BRLESC. 
WRITE  OUTPUT  TAPE  t,  f,  list 

This  statement  causes  decimal  and  alphanumeric  output  data  to  be  recorded  on 
tape  t.  Each  line  of  data  is  recorded  as  one  record  (block)  on  the  tape  and  may 
not  exceed  a  total  of  120  characters  (loO  on  BRLESC).  The  first  character  will  be 
used  as  a  vertical  format  control  for  the  high-speed  printer  and  is  determined  in 
the  same  manner  as  for  the  PRINT  statement  described  above  except  the  zone  bits 
will  be  00. 


The  tape  writing  is  parity  checked  on  BRLESC  but  there  is  no  checking  for  the 
end  of  a  reel.  About  9500  lines  of  print  will  fill  a  BRLESC  tape. 


be  used  instead  of  WRITE  OUTPUT  TAPE  in  this  statement  on  BRLESC. 


READ  TAPE  t,  list 

This  statement  causes  binary  information  to  be  read  from  tape  unit  t.  It 
should  be  used  only  for  reading  data  that  was  previously  put  on  tape  by  the  use  of 
the  WRITE  TAPE  statement  described  below.  This  statement  will  not  read  more  data 
than  was  specified  on  the  list  of  the  statement  that  wrote  the  data,  (Such  a  group 
of  data  is  defined  to  be  a  "logical  record".)  If  less  than  the  entire  logical 
record  is  read,  the  tape  will  move  to  the  end  of  the  record.  (if  the  list  is 
omitted  entirely,  the  tape  still  moves  to  the  next  logical  record. )  If  an  attempt 
is  made  to  read  more  data  than  is  on  one  logical  record,  the  unused  portion  of  the 
list  will  be  ignored. 
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On  BRLESC,  binary  logical  records  are  subdivided  into  tape  blocks  of  128 
words  each.  Within  each  logical  record,  the  first  word  of  each  tape  block  is 
zero  except  for  the  last  block.  The  first  word  of  the  last  block  contains  in  the 
a  address  the  number  of  words  in  the  last  block  (not  counting  this  word)  and  in 
the  7  address,  the  total  number  of  blocks  in  the  logical  record. 


T  tt-'i  TiTTr  i  m  •  ru  i  i  -t  •  i 

WRITE  xar.tL  t,  rise 

This  statement  causes  all  of  the  data  specified  on  the  list  to  be  written  as 
binary  information  in  one  logical  record  (see  READ  TAPE)  on  tape  unit  t.  It  is 
useful  for  temporarily  recording  data  on  tape  that  may  be  read  back  into  the  com¬ 
puter  by  using  a  READ  TAPE  statement  at  a  later  time.  See  the  explanation  of  the 
READ  TAPE  statement  for  a  description  of  the  way  the  information  is  "blocked"  on 
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END  FILE  t 

This  statement  causes  a  file  mark  to  be  written  on  tape  t. 

BACKSPACE  t 

This  statement  causes  tape  t  to  be  moved  backward  one  "logical  record".  This 
is  all  of  the  data  written  by  the  WRITE  TAPE  statement  that  wrote  the  record  for 
a  binary  tape,  or  is  one  line  (or  "card")  if  it  is  an  INPUT  or  OUTPUT  tape. 

REWIND  t 

This  statement  causes  tape  t  to  be  rewound  without  being  interlocked. 


READ  DRUM  i,  j,  list 

This  statement  is  not  allowed  on  BRLESC  and  causes  an  error  print.  For  the 
709/7090,  it  means  to  read  data  from  drum  i  beginning  at  the  jth  word.  (Variable 
subscripts  are  not  allowed  on  the  list.) 


WRITE  DRUM  i ^  j ^  list 

This  statement  is  not  allowed  on  BRLESC  and  causes  an  error  print.  For  the 
709/7O9O,  it  means  to  write  data  on  drum  i  beginning  at  the  jth  word.  (Variable 
subscripts  are  not  allowed  on  the  list.  ) 


Additional  Notes  on  Input-output  Statements: 

The  f  (FORMAT  number  or  name)  may  be  omitted  in  READ,  PUNCH  or  PRINT  state¬ 
ments  on  BRLESC  and  this  will  cause  a  FORMAT  (1P6E12.5)  to  be  used  automatically. 


The  statement  numbers  1  and  2  may  be  used  to  automatically  specify  FORMAT 
(5F1^.5)  and  FORMAT  (1P5E14. 5)  respectively  without  including  them  as  part  of  the 
program.  If  1  or  2  or  both  are  used  to  refer  to  these  FORMATS,  then  that  statement 


number  must  not  be  used  in  the  program  for  any  other  purpose.  If  either  one  is 
used  as  a  statement  number  in  a  program,  then  the  corresponding  automatic  FORMAT 
cannot  be  used. 

The  omission  of  a  "list"  on  any  of  the  input  statements  will  cause  one  record 
(card,  line,  or  logical  binary  tape  record)  to  be  read  and  ignored  on  BRLESC. 

Some  computers  may  allow  the  FORMAT  specified  to  be  used  to  skip  more  than  one 
record.  Note  that  a  FORMAT  should  be  specified  when  the  list  is  omitted  although 
it  is  not  necessary  to  do  so  on  BRLESC. 

The  number  of  print  positions  on  BRL's  high-speed  printer  is  l60.  BRLESC 
FORTRAN  allows  at  most  a  total  of  170  characters  for  a  line  including  the  vertical 
format  and  end-of-line  characters.  When  the  1401  can  be  used  to  print  BRLESC  tapes, 
the  line  length  will  probably  be  restricted  to  152  characters. 

ADDITIONAL  NOTES  ON  THE  USAGE  OF  MAGNETIC  TAPE  ON  BRLESC: 

All  of  the  tape  reading  and  writing  is  parity  checked.  Rereading  erroneously 
ten  consecutive  times  or  rewriting  wrong  twice  after  each  of  five  consecutive  "GAP 
instructions"  causes  an  error  print  and  BRLESC  stops  running  the  programs. 

There  is  no  checking  for  end-of-reel  conditions  in  BRLESC  FORTRAN. 

Single  line  per  block  INPUT  or  OUTPUT  tapes  will  only  hold  about  9500  lines  while 
PRINT  or  PUNCH  tape  output  will  hold  about  60,000  lines  per  reel. 

The  only  restriction  on  switching  between  reading  and  writing  of  tapes  is 
that  writing  should  only  begin  at  the  beginning  of  a  tape.  (if  writing  is  started 
in  the  middle  of  a  tape,  an  extra  "block"  of  random  bits  may  be  written  on  the 
tape.)  Whenever  a  tape  on  BRLESC  is  switched  from  writing  to  reading,  a  file 
mark  and  an  extra  one  word  block  that  says  "END  TAPE"  is  automatically  written  on 
the  tape  before  the  final  file  mark  is  written  and  then  switching  is  done.  (This 
extra  block  is  ignored  by  a  BACKSPACE  statement.) 

The  tape  unit  number  t  may  be  either  a  decimal  integer  constant  or  variable. 

If  t  is  a  variable,  the  integer  value  it  has  at  the  time  the  tape  statement  is 
executed  is  used  as  t.  The  following  table  shows  the  correspondence  between  the 
value  of  t  and  the  tape  switch  on  BRLESC.  The  actual  tape  handler  used  depends  on 
the  switch  setting. 
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Switch 


1  or  11 

2  or  12 

3  or  13 

4  or  14 

5  or  15 

6 


10  7  (temporary  or  output  only) 

Note  that  1  <  t  <  15  and  that  t  is  used  modulo  ten  for  11  <  t  <  15.  (If  t  >  15 
is  used,  it  will  be  used  modulo  1 6. )  PRINT  (and  PUNCH)  tape  output  uses  switch 
13,  the  compiler  itself  uses  switch  15  for  its  own  program  and  uses  switch  7  for 
temporary  storage  while  compiling,  and  card  input  put  on  tape  off-line  uses  switch 
6.  (Usage  of  switches  6,7  and  15  are  identical  to  FORAST. )  When  leaving  problems 
to  be  run  on  BPLESC,  the  switch  number  rather  than  the  t  number  should  be  used  in 
the  instructions  to  the  computer  operator. 

All  printer  output  is  formatted  for  variable  length  lines  for  the  off-line 
high  speed  printer.  PUNCH  tape  output  automatically  has  a  single  space  character 
"1"  inserted  at  the  beginning  of  each  line  and  an  end-of-line  character  "A"  at  the 
end  of  each  line.  The  same  is  true  of  PRINT  and  WRITE  OUTPUT  TAPE  output  if  the 
first  field  of  the  line  is  not  an  H  type  field.  If  the  first  field  is  an  H  field, 
then  the  first  character  of  the  field  is  used  for  vertical  format  control  after 


undergoing  the  following  transformation: 


h  Field 


+  or  - 


0  or  2 
1  or  8 
Others 


Tape 

blank  (no  space) 

2  (double  space) 

8  (start  new  page) 
1  (single  space) 


The  20210  bit  s  of  the  format  cnarac  ter  will  be  00  except  PRINT  output  will  nave  01. 

FORTRAN  programs  are  supposed  to  contain  an  END  FILE  statement  and  a  REWIND 
statement  fo  r  each  output  tape  used  in  the  program  and  a  REWIND  statement  for  each 
input  tape.  If  this  is  not  done  at  the  end  of  the  program,  the  operator  will  have 
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to  manually  do  these  operations  and  the  output  tape  will  not  have  a  file  mark  at 
its  end.  PRINT  (or  PUNCH)  tape  output  on  BRLESC  is  automatically  completed  and 
rewound  unless  PAUSE  is  used  to  halt  the  problem  instead  of  STOP,  CALL  EXIT,  or 
CALL  DUMP. 


XI.  SUBPROGRAM  STATEMENTS 


FORTRAN  allows  sections  of  a  FORTRAN  program  to  be  designated  as  subroutines 
that  may  be  used  at  many  different  places  in  the  main  program.  The  SUBROUTINE, 
FUNCTION,  RETURN  and  END  statements  allow  the  programmer  to  define  and  name  por¬ 
tions  of  his  program  as  subprograms  and  they  provide  information  that  allows  the 
compiler  to  provide  for  the  substitution  of  variables  at  run  time  and  standard 
entry  and  exit  methods  used  for  subroutines. 


Any  subprogram  may  use  any  of  the  FORTRAN  statements  within  itself  except 
SUBROUTINE  and  FUNCTION  statements.  Any  subprogram  may  use  any  other  subprogram 
or  subroutine  of  any  type,  including  arithmetic  statement  functions  (see  Section  XII) 
that  are  defined  at  the  beginning  of  the  subprogram.  Recursive  subprograms  (sub¬ 
programs  that  use  themselves)  are  not  allowed. 

1.  SUBROUTINE  a(b, c,d, e, ....  ) 

This  statement  marks  the  beginning  of  a  subprogram  that  we  shall  call 
a  SUBROUTINE.  The  name  of  the  SUBROUTINE  is  a  and  b,c,d,e, ...  are  the  names  of 
nonsub scripted  dummy  variables  that  will  be  replaced  at  run  time  by  the  actual 
variables  that  are  listed  in  the  CALL  statement  that  causes  this  subroutine  to  be 
performed.  The  subroutine  consists  of  the  FORTRAN  statements  that  follow  this 
statement  down  to  an  END,  FUNCTION  or  another  SUBROUTINE  statement. 


The  name  of  the  SUBROUTINE  does  not  indicate  the  mode  of  any  result  and 
hence  any  letter  may  be  used  as  its  first  character.  However,  the  last  character 
of  the  name  must  not  be  F  unless  it  has  less  than  four  characters. 

Except  for  the  COMMON  storage,  all  variables  within  a  SUBROUTINE  (or 
FUNCTION)  are  assigned  storage  that  is  unique  and  not  used  by  any  other  part  of  the 
program.  Thus  the  variable  X  may  be  used  in  several  SUBROUTINES  within  a  program 
and  each  X  will  be  different  unless  it  appears  in  the  same  relative  position  in 
COMMON  statements  in  each  of  SUBROUTINES. 

No  storage  is  assigned  to  the  dummy  variables;  on  BRLESC,  DM  will  appear 
in  the  dictionary  instead  of  an  address.  If  a  dummy  variable  is  an  array  name, 
st  be  defined  within  the  subroutine  and  the  size  must  either  be 
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identical  with  the  size  of  any  actual  variable  used  to  replace  it  or  else  its 
size  must  be  defined  by  other  dummy  variables.  Dummy  variable  array  subscripts  in 
DIMENSION  statements  is  a  feature  of  FORTRAN  IV  and  is  not  allowed  in  other  ver¬ 
sions  of  FORTRAN. 


Example:  SUBROUTINE  POGO(A,XX,L) 

2.  FUNCTION  a(b,c,d, ... ) 

This  statement  is  similar  to  the  SUBROUTINE  statement  but  should  be  used 
whenever  the  subroutine  has  only  one  result.  No  dummy  variable  should  be  listed 
for  the  result  as  it  is  intended  that  the  function  will  be  used  in  an  arithmetic 
expression  and  the  result  is  simply  used  in  evaluating  the  rest  of  the  expression. 


The  name  of  the  function  is  a  and  b,c,d  represent  non sub scripted  dummy 
variables.  The  name  of  the  function  does  indicate  the  mode  of  the  result  by  its 
first  letter  and  the  final  character  must  not  be  F  if  there  are  more  than  three 

IDO  00 


I,J,K,L,M  or 


N  if  and  only  if  the  result  is  integer. 


Within  the  FUNCTION  subprogram,  some  statement  should  store  a  value  in 
a  variable  that  has  the  same  name  as  the  name  of  the  subroutine  and  this  will  be 
used  as  the  result. 


There  must  always  be  at  least  one  dummy  variable  for  FUNCTION  subprograms. 

Example:  FUNCTION  LOW  (Q1,T) 

3 ,  RETURN 

This  statement  may  be  used  as  often  as  desired  within  subprograms  (SUB¬ 
ROUTINE  or  FUNCTION)  to  indicate  the  point  or  points  at  which  execution  of  the 
subprogram  should  stop  and  control  should  return  to  the  program  that  is  using  the 
subprogram.  It  should  always  be  used  at  least  once  in  every  subprogram. 

4.  END 

This  statement  may  be  used  at  the  end  of  any  subprogram  or  at  the  end  of 
the  main  program.  It  is  not  required  on  BRLESC.  All  program  decks  on  BELESC  do 
require  the  very  last  card  of  the  entire  program  deck  to  be  a  card  that  has  an  E 
in  column  1= 

The  sense  switch  options  allowed  in  709/7090  END  statements  will  be 
ignored  on  BRLESC. 
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Most  computers  other  than  BRLESC  compile  each  subprogram  as  though  it 
is  a  complete  FORTRAN  program  and  only  provide  a  binary  card  deck  that  must  be 
assembled  with  other  binary  decks  to  actually  run  the  program*  Kence  they  require 
an  END  statement  at  the  end  of  each  main  program  and  each  subprogram. 


For  BRLESC,  the  main  program  and  all  the  subprograms  must  be  compiled 
at  the  same  time  and  thus  can  be  run  without  the  use  of  any  binary  decks.  BRLESC 
has  a  limit  of  30  subprograms  used  in  any  one  program  deck. 


XII.  FRE-DEFINED  FUNCTIONS  AND  SUBROUTINES 


FORTRAN  subroutines  are  separated  into  two  classes,  (l)  functions  are  those 
subroutines  that  have  only  one  result  and  hence  may  be  used  in  arithmetical  expres¬ 
sions;  and  (2)  SUBROUTINE  subprograms  (See  Section  Xl)  or  other  subroutines  that 
may  have  more  than  one  number  as  a  result  and  may  be  used  only  by  CALL  statements. 


Functions 

There  are  three  methods  of  defining  a  function.  They  are 

1.  Pre-defined  functions  that  may  be  used  by  using  the  pre-defined  name. 

2.  Arithmetic  statement  functions. 

3.  FUNCTION  subprograms.  (See  Section  Xl) 

Pre-defined  Functions 


Unfortunately,  there  is  not  much  standardization  of  the  pre-defined  sub¬ 
routines  that  are  allowed  on  various  computers.  Appendix  A  lists  the  pre-defined 
functions  that  are  allowed  on  709/7°90  and  BRLESC. 


Naming  Functions 


rtion  (and  arithmetic  st< 


notion)  names 


mu st  alvay s 


end  with  F  (a  total  of  seven  characters  are  allowed)  and  must  begin  with  X  only 
if  the  result  is  an  integer.  Variables  must  never  be  given  a  name  that  is  the 
same  as  any  of  the  function  or  subroutine  names  either  with  or  without  the  terminal 
F.  For  BRLESC,  the  terminal  F  is  not  necessary  when  using  pre-defined  functions 
but  is  necessary  in  both  the  definition  and  use  of  arithmetic  statement  functions. 


The  naming  of  FUNCTION  subprogram  functions  uses  different  rules  that  are  the 
same  as  for  naming  arrays.  An  initial  letter  of  I,J,K,L,M,  or  N  indicates  an 


integer  result  and  the  last  character  mu 
characters  in  the  name. 


X  XKJ  K/  V 


Use  of  Functions 


Any  of  the  three  types  of  functions  may  be  used  in  an  arithmetic  expression 
by  writing  its  name  in  front  of  a  pair  of  parentheses  that  enclose  the  list  of 
arguments.  The  arguments  must  correspond  in  mode  and  number  to  the  dummy  var¬ 


iables  used  in  defining  the  function.  Successive  arguments  are  separated  b; 


commas  and  they  may  be  arithmetic  expressions. 


For  BRLESC,  any  function  may  also  be  used  in  a  CALL  statement  by  including 
an  extra  variable  name  that  specifies  where  to  store  the  result. 


rt  vi  4  4- Vwi  r\4-  r-\  04-  n  4-  wwi  r~\  w  -4-  li*i  v»  /-» -4-  -?  rvyi  o 
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Arithmetic  statement  functions  are  functions  that  can  be  and  are  defined  by 
one  arithmetic  statement  at  the  beginning  of  a  program  (or  subprogram).  The  name 
of  the  function  followed  by  the  dummy  arguments  enclosed  in  parentheses  are  written 
to  the  left  of  the  =  symbol.  The  arithmetic  expression  that  describes  the  function 


in  terms  of  the  dummy  variables  is  written  to  right  of  the  =  symbol.  The  dummy 
variables  cannot  be  subscripted.  Any  variable  used  in  the  expression  that  is  not 
a  dummy  variable  will  be  identical  to  the  variable  of  the  same  name  in  the  program 
(or  subprogram)  in  which  the  statement  is  contained,  (An  arithmetic  statement 
function  definition  only  applies  and  can  be  used  only  in  the  program  or  subprogram 
in  which  it  is  located. ) 


An  arithmetic  statement  function  may  use  any  of  the  other  types  of  functions 
and  may  also  use  other  previously  defined  arithmetic  statement  functions.  All 
arithmetic  statement  functions  must  precede  the  first  statement  that  gets  executed 

A  vi  4-  Vs  /v  vwinrwnin  \  vi  /rvinwn 
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The  dummy  variable  names  used  must  indicate  the  same  type  of  arithmetic  that 
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Example  of  defining  an  arithmetic  statement  function: 

FUNF(A,B,C)  =  A**2  -  SINF(B*C)+C 


Example  of  using  this  arithmetic  statement  function: 
T  =  Q  +  FUNF(X,S  +  EXFF(  V**2),lE. ) 


XIII.  FRE-DEFINED  SUBROUTINES 

A  subroutine  may  be  pre-defined  and  exist  on  the  compiler  tape  or  it  may  be 
defined  by  a  SUBROUTINE  subprogram.  (See  Section  XI. )  Subroutines  may  be  given 
any  valid  name  (no  restrictions  on  the  first  or  last  letter)  and  may  only  be  used 
by  a  CALL  statement. 
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The  following  subroutines  are  pre-defined  in  BRLESC  FORTRAN: 


SETMSI  (j) 
SETPSI  (j) 

SE1MS0  (j) 
SETPSO  (j) 


Set  minus  sign  for  input. 

Set  plus  sign  for  input.  (Not  necessary,  anything  not 
minus  is  plus. ) 

Set  minus  sign  for  output. 

Set  plus  sign  for  output. 


where  j  is  an  integer  constant! 

0  means  blank. 

1  means  y(l2)  punch. 

2  means  x(ll)  punch. 

3  means  x  or  y  punch. 

SEXAPR(A,B)  Sexadecimal  print  from  A  to  B. 

B.IN  Goes  to  binary  input  routine  after  saving  a  return  jump 

instruction  in  073. 

POWER. (A, B, C)  Computes  C  =  A**B  where  B  may  be  integer  of  fl.  pt. 
SINC0S( A, B, C )  Computes  B  =  SINF(A)  and  C  =  COSF(A). 

Additional  pre-defined  subroutines  will  be  added  in  the  future. 


XIV.  FORTRAN  PROGRAM  CARDS 

BRLESC  FORTRAN  uses  the  same  card  format  for  punching  FORTRAN  programs  that 
is  used  by  other  computers. 


Columns : 

1-5  Statement  number  (integer). 

6  Continuation  Card  if  not  zero  or  blank. 
7-72  One  FORTRAN  statement. 

73  -  80  Identification. 


The  statement  number  must  be  a  decimal  integer. 


Treading  zeros  are  ignored. 


Trailing  blanks  are  also  ignored,  at  least  on  BRLESC. 


Column  1  is  also  used  to  indicate  special  t^^es  of  cards, 
shows  the  special  characters  that  indicate  special  cards: 


■f  /~\  7  1  /-\t  r-f  r~r 
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.St 
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C  Comment  card.  Columns  7-60  may  be  used  for  comments. 

*  709/7090  monitor  card  or  BRLESC  control  card. 

B  Boolean  statement  card. 

D  Double  Precision  statement  card. 

I  Complex  Arithmetic  statement  card.  (Not  allowed  on  BRLESC. ) 
F  Used  to  specify  names  of  subroutines  used  as  arguments. 

7-8  End-file  signal  on  709/7090,  ignored  on  BRLESC. 

J  BRLESC  only,  jump  to  binary  input  routine  immediately. 

E  BRLESC  only,  is  last  card  of  program  deck. 


Column  6  is  used  to  mark  cards  that  are  a  continuation  of  the  previous  card. 

It  is  used  as  a  continuation  if  Column  6  contains  any  character  other  than  zero 
or  blank.  The  only  exception  to  this  rule  is  that  the  first  card  of  a  program  may 
use  Column  6  for  identification  information  if  it  has  an  *  in  Column  1.  BRLESC 
does  not  limit  the  number  of  continuation  cards  allowed  but  709/7090  and  some  other 
computers  restrict  a  statement  to  nine  continuation  cards. 


Columns  7-72  contains  information,  not  more  than  one  statement,  comments, 
control  information,  etc.  depending  on  the  type  of  cards  as  indicated  by  Column  1. 

Columns  73-80  are  ignored  by  BRLESC  and  may  contain  any  desired  identification. 


Blank  columns  are  ignored  except  when  they  are  in  an  H  field  in  a  FORMAT 
statement. 


Blank  cards  will  be  ignored  on  BRLESC. 


1W\4-  a  -4-  V  o  +-  -(-4-  o  c  -I  ee4V\l  c  1100  TTO'P  A  Q^P  4  vi  rr  c  Vi  dot  e  V  r~\  t  .ty*  "t  +•  a  POP'IIW  A  TsT 

ilUUU  UUUU  -L.  Lf  J.  k_>  poi  lii-l.  X  ViUUJX  ‘ Jli  VV  W  U  WW  n  X  J-  VV.  1  \Z1U1UU1 

programs.  It  only  means  that  the  key  punchers  must  not  use  Column  6  as  part  of  the 
statement  number  and  must  not  allow  a  statement  to  go  past  Column  72.  It  does  not 
mn+.+  pT  uVip+.Vipr  +.Vip  st.nt.pmpnt,  st.Rrt.R  in  Column  7  or  11. 


F  Cards 

If  the  name  of  a  subroutine  or  function  (either  pre-defined  or  defined  by  a 
subprogram)  is  used  as  an  argument  for  another  subroutine  or  function,  its  name, 
without  the  terminal  F,  must  appear  on  a  card  with  an  F  in  Column  1.  This  F  card 
must  be  in  the  program  (or  subprogram)  that  uses  the  subroutine  as  an  argument  and 


wirst  r  V\  a  Vk  ^  rt  rVioi'vi  a  Tt'J  -4“  Vi  -T  vo  -4-  V»  «-»  +■  riVA^VOW 
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The  names  of  the  subroutines  are  to  start  in  or  beyond  Column  7  and  are  sep- 


o  ■y'o  +  Vit r  e 

Ori-  uj  ovimuao  . 


Example : 


\ 

U1TD,  rw 


SiN,  ear,  fuN3,  AtAN 


The  terminal  F  is  also  to  be  omitted  in  the  statement  that  uses  the  na 


IltUIie  cL  fc> 


an  argument.  At  least  on  BRLESC,  arithmetic  statement  function  names  may  also  be 
used  as  arguments  for  other  subroutines  without  appearing  on  an  F  card.  However, 
the  terminal  F  must  always  be  used  on  arithmetic  statement  function  names  on  BRLESC 


When  writing  a  subprogram  that  will  accept  subroutine  arguments,  the  dummy 
variable  should  not  have  the  terminal  F  in  the  SUBROUTINE  or  FUNCTION  statement  but 
must  have  a  terminal  F  added  to  it  when  it  is  used  in  arithmetic  expressions. 


XV.  BRLESC  CONTROL  CARDS  AND  DICTIONARY  PRINTING 

The  use  of  certain  control  cards  are  allowed  to  affect  the  compilation  of 
FORTRAN  programs.  Most  of  these  apply  to  BRLESC  FORTRAN  only,  although  some  are 
also  used  on  709/7090.  All  of  the  control  cards  are  marked  with  an  *  in  Column  1 
with  the  control  information  starting  in  or  after  Column  7. 

*  The  first  card  of  a  program  that  has  an  *  in  Column  1  (except  a 
DATE  card)  is  used  as  identification  and  is  printed  in  front  of  the  PUNCH 
output.  Columns  2-80  may  be  used.  (On  all  other  cards  with  *  in  Column 
1,  only  Columns  7-72  may  be  used. ) 

*  CHANGE  +  AND  - 

This  card  reverses  the  meaning  of  +  and  -  signs  in  the  program  deck, 
except  in  FORMAT  statements.  BRL  +(ll)  and  -(12)  signs  are  used  initially. 

*  SETSSW  1  {dS»} 

This  control  "statement"  allows  sense  switch  i  to  be  "preset"  either 
UP  or  DOWN.  By  using  this  control  card,  the  operator  can  be  relieved  of 
actually  setting  the  sense  switches. 

*  PRTOFU 

This  control  statement  causes  the  compiler  to  translate  all  following 
PRINT  statements  as  though  they  were  PUNCH  statements.  (Allows  card  out¬ 
put  instead  of  tape.  ) 

*  RTTORC 

This  control  statement  causes  the  compiler  to  translate  all  following 
READ  INPUT  TAPE  or  INPUT  statements  as  though  they  were  READ  statements. 

(Use  card  input  instead  of  tape.) 

*  WTTOFU 

This  control  statement  causes  the  compiler  to  translate  all  following 
WRITE  OUTPUT  TAPE  or  OUTPUT  statements  as  though  they  were  PUNCH  statements. 
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LIST 

SYMBOL  TABLE 

Either  of  these  causes  the  storage  dictionary  to  he  printed.  The 
asterisk  in  Column  1  is  not  required  on  the  LIST  card. 


The  dictionary  is  printed  with  names  of  variables  arranged  in  alpha¬ 
betical  order  within  each  subprogram.  Functions  (except  arithmetic 
statement  functions)  and  subroutine  names  will  be  preceded  by  two  aster¬ 
isks.  Main  program  names  will  be  preceded  only  by  two  blank 


.  t>  emu.  o 


Ub- 


program  names  will  be  preceded  by  one  character  and  one  asterisk.  The 
character  preceding  each  subprogram  name  will  be  1,2, . . .,9,A,B, . . . .T 
corresponding  to  the  sequence  in  which  the  subprograms  appeared  in  the 
program  deck. 


Following  each  name  will  be  the  sexadecimal  memory  address  that  has 
been  assigned  to  the  name.  Following  this  address,  any  of  the  following 
letters  may  appear: 

A  indicates  an  array  name. 

X  indicates  an  integer  variable. 

C  indicates  the  name  was  in  a  COMMON  statement. 

E  indicates  the  name  was  in  an  EQUIVALENCE  statement. 

U  indicates  the  name  was  used  only  once. 


Statement  numbers  are  printed  at  the  right  end  of  the  six  character 
name  position  and  therefore  always  precede  the  names  of  the  variables  in 
any  program.  The  compiler  usually  adds  a  few  names  to  the  dictionary  to 
indicate  temporary  storage  and  special  subroutines.  The  name  $  SUBS,  is 
printed  at  the  end  of  the  dictionary  to  indicate  the  length  of  the  pre¬ 
defined  subroutines.  The  subroutines  extend  from  this  address  down 
through  010 3L  and  includes  all  of  the  input-output  storage  and  sub¬ 
routines.  The  io  NOS.  name  printed  as  the  next  to  last  name  in  the 


dictionary  indicates  the  length  of  the  "constant  pool".  This  storage, 
from  0S0  down  to  but  not  including  the  address  printed  after  °jo  NOS.,  is 
used  to  store  the  constants  and  the  "array  words"  required  by  the  pro- 

ffrfl' m . 
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For  array  names,  the  address  assigned  in  the  dictionary  is  not  the 
initial  address  of  the  array,  but  is  the  address  of  the  "array  word”  in 
the  constant  pool.  The  "array  word"  contains  the  dimension  of  the  array 
in  its  leading  two  bits,  the  maximum  value  of  each  subscript,  (15  bits 
for  each  subscript  starting  at  the  right  end  of  the  B  address  and  going 
to  the  left),  and  the  "base  address"  at  the  right  end  of  the  array  word. 
The  "base  address"  is  not  the  initial  address  of  the  array  either;  for 


OnP  fi  nm^nci  /-\  n  q  1  orravc  *1  +■  ■?  c  rvn o  1  pec  -f- V> a vo  f  >>p  n  rn*  +  t  ol 

UHC  u,i  i  *—■  J  -i .  lu  ViiO  1C  O  OilCLil  OlitC  XU1  (_/  X  CU  -L  aau 


aaai  ^  o  o  «  x Ui 


two  dimensional  arrays,  it  is  (imax.  +  l)  less  than  the  initial  address, 
and  for  three  dimensional  arrays,  it  is  (imax  +  Imax  •  Jmax  +  l)  less 
than  the  initial  address,  (imax  and  Jmax  are  used  here  to  represent 
the  maximum  declared  value  of  the  first  and  second  subscripts  respec¬ 
tively  for  an  array. ) 

Whenever  the  dictionary  is  printed,  the  constant  pool  is  also  printed 
so  that  the  programmer  can  determine  the  actual  storage  assigned  to  arrays. 
A  better  method  of  printing  the  array  storage  assignment  will  be  added 
in  the  future. 


Names  in  COMMON  are  assigned  last,  so  the  last  name  in  the  COMMON 
assignment  within  the  subprogram  that  has  the  most  COMMON  storage  will 
mark  the  end  of  all  the  storage  used  by  the  program.  The  instructions 
for  the  program  and  all  the  subprograms  are  stored  first,  then  all  the 
variables  not  in  COMMON  are  assigned  storage  immediately  after  the  instruc¬ 
tions  and  this  is  followed  by  those  variables  in  COMMON . 


* 
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LIST8 

LIST  ( S . CODE ) 
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control  cards  cause  the  dictionary  and  the 


sexadecimal 


code  for  the  entire  program  to  be  printed.  Four  instructions  are  printed 
on  a  line  with  the  address  of  the  first  one  printed  at  the  beginning  of 
the  line.  The  *  in  Column  1  of  LIST  (S.CODE)  may  be  omitted  unless  LIST 
is  the  name  of  an  array. 


LIST  (B.CODE) 

This  control  card  causes  the  entire  program  and  the  subroutines  it 
uses  to  be  punched  on  binary  cards  with  absolute  addresses.  To  use  this 
deck  to  run  the  program,  it  must  be  preceded  by  a  binary  input  routine 


and  followed  by  the  standard  set  of  FORTRAN  input-output  routines  and  a 
jump  to  073.  The  *  in  Column  1  may  be  omitted  unless  LIST  is  the  name 
of  an  array. 


XVT.  BRLESC  COMPILER  ERROR  PRINTS 


The  BRLESC  FORTRAN  compiler  checks  for  a  limited  number  of  types  of  errors  in 
the  program  it  is  compiling.  It  definitely  will  not  find  all  possible  errors,  but 
some  errors  will  cause  one  of  the  error  prints  listed  below.  The  type  of  error 
can  be  recognized  either  by  the  number  that  follows  the  word  ERROR  and  precedes 
the  comma  or  by  the  "error  word"  that  is  printed.  The  form  of  the  error  print  is 

FORTRAN  ERROR  t,m  Error  Word  Ident .  W  First  30  cols,  of  *  Ident.Card 


where 

t 

m 

Error  word 


Ident . 
W 


=  type  of  error 

=  ten  col.  field  at  which  error  was  detected;  m  =  0,1, ...,7 
=  ten  alphanumeric  characters  that  describe  the  type  of  error 
as  listed  below. 

=  cols.  73-80  of  card  at  which  error  was  detected. 

=  rest  of  the  mth  field  on  the  card  at  time  of  error  detection. 


TAPE  ERROR  WORD 

1  ILL. CHAR. 

2  SYM. ST. NO 

3  MIXED  EXPR 

k  INT**FLT 

5  IL. RETURN 

6  NO  =  IN  DO 

7  SUBFRS.  30 

8  BIG  ADD. ID 

9  NO,  CP. GOTO 

10  ILL.STAT. 

11  FLT. INDEX 

12  ILL.  DIM. 


DESCRIPTION 

Illegal  character  on  program  card. 

Symbolic  statement  number,  not  all  decimal  digits. 

Mixed  expression,  integer  and  fl.  pt.  arithmetic. 

Integer  raised  to  fl.pt.  power  is  illegal. 

Illegal  RETURN  statement,  used  in  main  program. 

No  equals  symbol  at  proper  place  in  DO  statement. 

Tried  to  compile  more  than  30  subprograms. 

Big  address  is  indexed.  Program  is  too  big. 

No  comma  at  proper  place  in  computed  GOTO  statement. 

Illegal  type  of  statement  or  too  long  a  name  at  beginning 
of  arithmetic  statement. 

Subscript  involves  a  fl.pt.  number 

Number  of  subscripts  is  not  same  as  dimensionality  of  the 


array. 
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TYPE 

TTP-pm?  yrrorj 

IJ1UIW11  11  '-/J.  LU 

DESCRIPTION 

13 

ILL. COMMA 

Comma  is  used  improperly  in  an  arithmetic  expression. 

l4 

ASD.ST.NO 

Assigned  statement  number;  same  statement  number  used  twice 

15 

COMPLEX  AR 

Complex  arithmetic  cards  (i  in  Column  l)  not  allowed  on 
BRLESC. 

l6 

EQU.  TABLE 

EQUIVALENCE  table  is  full. 

17 

oom  flfvSNT) 

COMMON  name  was  previously  assigned. 

18 

ARRAY. REF 

Array  name  used  before  it  was  defined. 

19 

DICT.FULL 

Dictionary  is  full. 

20 

COL. 7  NO. 

Statement  begins  with  a  decimal  digit. 

21 

SENSE  >  6 

Sense  light  or  Sense  Switch  number  greater  than  6. 

22 

DO  NO  END 

Statement  number  used  in  DO  never  appeared.  (it  may  have 
been  missed  due  to  another  error. ) 

23 

LONG  NAME 

A  name  was  seven  or  more  characters  long  and  seventh 

character  was  not  an  F. 

24 

IL.  EQUALS 

Illegal  =  symbol  or  arithmetic  was  specified  on  the  left 

of  the  =  symbol. 

25 

IL.  -  BOOL 

Illegal  "not"  operation  on  boolean  card. 

26 

IL.  /  BOOL 

Boolean  division  is  undefined. 

27 

OATT  mtA  TT1T 

UHLliJ  OrLHJ.iN 

"CHAIN  jobs"  cannot  be  done  on  BRLESC.  (Segmentation  of 
program  using  tape. ) 

28 

IL.**B00L 

Boolean  exponentiation  is  undefined. 

29 

DRUM  STAT- 

Drum  statements  not  allowed  on  BRLESC 

30 

IL.  10  LIST 

Illegal  input-output  list. 

ERROR 

TAPE  7  FORTRAi'J 

Special  error  print  that  usually  means  machine  error. 

It  must  be  remembered  that  the  above  mentioned  cause  is  only  the  probable 
error.  Sometimes  some  type  of  undetected  error  later  causes  one  of  the  detected 
error  prints  at  a  point  where  no  error  exists.  It  also  happens  that  some  errors 
are  not  detected  until  the  next  card  has  been  read.  (W=m  =  0  when  this  happens. ) 
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After  each  error  print,  the  entire  card  that  the  compiler  currently  has  in 
the  memory  will  also  be  printed.  (if  w  =  m  =  o,  the  error  was  probably  on  the 
previous  card,  otherwise  it  probably  is  the  card  that  contains  the  error.  ) 


The  ERROR  TAPE  7  error  print  usually  indicates  a  tape  error  on  the  temporary 
storage  tape  7-  If  the  right  end  of  the  line  says  PARITY  ERROR,  then  this  is 
indeed  a  tape  error.  If  the  right  end  of  the  line  has  some  other  characters,  they 
are  a  symbol  that  cannot  be  found  in  the  dictionary  and  this  may  be  caused  by 
either  a  tape  error  or  a  machine  error  in  the  dictionary  searching  process. 


XVII.  BRLESC  RUN  ERROR  PRINTS 

Some  of  the  pre-defined  FORTRAN  subroutines  used  on  BRLESC  detect  certain 
errors  in  the  data  they  process.  When  such  an  error  is  detected,  a  RUN  ERROR  line 
is  printed  and  the  program  is  not  allowed  to  continue  to  run.  The  error  print- 
consists  of  one  line  of  information  of  the  following  form: 

RUN  ERROR  "Error  word"  Date  Cols.  1-30  of  Ident.  Card  LE  No. 

when  "Error  word"  is  an  alphabetic  word  that  identifies  the  type  of  error. 

Date  is  the  date. 

LE  is  the  location  (in  decimal)  of  the  entry  to  the  subroutine  that 

detected  the  error. 

No.  is  a  number  that  in  some  cases  was  an  illegal  argument. 

Run  Error  List:  (X  and  Y  represent  arguments.) 


ERROR  WORD 

SUBROUTINE 

REASON 

NO, 

LOG  X  NEG 

LOGF 

X  <  0 

X 

EXP  BIG  X 

EXPF 

x  >  55^.89 

X/Loge; 

ARCSIN  1+ 

ARCSINF  or 

X  >  1+2“ 1+9 

Ixl 

1  1 

ARCCOSF 

SINCOS  N  S 

SINF  or  COSF 

|  X  |  /2jt  >  1615 

X/2rr 

or  SINCOSF 

POWER  oTO- 

POWER. 

X  =  0  and  Y  <  0 

Zero 

( Exponentiation) 

CVFTOI  BIG 

XINTF  or 

!  X  |  >  i6ll+ 

X 

XFIXF 

1  1  — 
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ERROR  WORD 


SUBROUTINE 


END  TAPE  t 
TAPE  TKA  u 

TAPE  TKB  u 
BAD  FORMAT 
NO( FORMAT 
LONG  LINE 


READ  TAPE  Tried,  to  read  beyond  information  written  on  tape  t. 

Persistent  tape  error  on  trunk  A  where  u  is  actual  tape  switch 
number  and  "No."  is  total  number  of  tape  errors. 

Same  as  TAPE  TKA  u  except  error  is  on  tape  trunk  B. 

Illegal  character  in  a  FORMAT  statement. 

More  ri  pS-X*  entheses  than  left  parentheses  in  a  FORMAT  statement. 

Output  line  is  more  than  170  characters. 

XVIII.  OPERATION  OF  THE  BRLESC  FORTRAN  COMPILER 


The  BRLESC  FORTRAN  compiler  exists  on  magnetic  tape  in  much  the  same  manner 
as  the  FORAST  compiler  and  operates  in  a  very  similar  manner.  Many  copies  of  the 
compiler  and  the  pre-defined  subroutines  are  on  one  tape  and  the  tape  reading  is 
arranged  so  that  it  is  checked  and  automatically  corrected  by  using  the  next  copy 
on  the  tape.  The  tape  automatically  backs  up  twenty  copies  after  the  last  copy 
on  the  tape  is  used.  Normally,  successive  copies  are  used  for  compiling  successive 
programs. 

Much  of  the  translation  is  done  concurrently  with  the  reading  of  the  program 
cards  (or  tape).  The  partially  translated  code  is  put  on  a  temporary  tape  and  the 
dictionary  and  constant  pool  are  kept  in  the  memory.  After  the  last  card  of  the 
program  is  read  (E  in  Column  l),  all  unassigned  symbols  in  the  dictionary  are 
assigned  storage.  The  memory  that  will  be  used  by  a  program  is  cleared  to  zeros 
and  then  the  temporary  tape  is  read,  the  translation  of  each  instruction  is  com¬ 
pleted  and  it  is  stored  in  the  memory  for  running.  Programs  are  stored  from  OlOLO 
and  may  extend  to  the  end  of  the  memory.  Next,  the  subroutines  are  read  from  the 
compiler  tape  and  the  ones  needed  are  stored  backwards  from  09K0.  (The  standard 
input-output  routines  occupy  09K0-103L. ) 


The  efficiency  of  the  generated  code  is  good  except  for  the  referencing  of 
arrays  with  variable  subscripts.  Such  one  dimensional  referencing  causes  one  extra 
order  to  be  one,  two  dimensional  referencing  causes  two  extra  orders  to  be  done 
and  three  dimensional  referencing  causes  four  extra  orders  to  be  done.  These  orders 


are  extra  in  the  sense  that  they  would  not  be  needed  in  the  corresponding  FORAST 
or  handcoded  programs.  Subscript  expressions  and  other  arithmetic  expressions  are 
evaluated  as  they  are  written  except  that  instructions  involving  only  constants 
will  be  done  at  compile  time.  The  compiler  does  not  presently  make  use  of  the 
"accumulate"  option  allowed  on  BRLESC  instructions. 


1 1 
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XIX.  SPEED  OF  BRLESC  FORTRAN  COMPILING 


The  BRLESC  FORTRAN  compiler  is  very  fast  and  hence  is  designed  for  "load  and 
go"  operation.  Programmers  are  encouraged  to  keep  their  FORTRAN  programs  in 

CT  rroV* /''i  "1  *1  /“»  on/^  Ivnyicl  o  +-  a  +■  Vi  am  eonVi  ^  Tirift  -4-  Vl  OT  r  o  "v*  vm  r 

O  Jr  IliU  Ulit  x  KJx  ill  una  ui  auoraut  »oxxvx.ixi  v_cxv^xx  uxiut  ollv-.j'  a.x  i  ui 


xiix  o  naouco  vex; 


if  any  computer  time  and  is  most  convenient  for  the  programmer. 

Most  of  the  translation  is  done  concurrently  with  reading  the  program  cards 
at  the  present  maximum  speed  of  800  cards  per  minute.  The  total  time  required 
for  translating  a  program  consisting  of  C  cards  can  be  approximated  by  the  formula: 

time  in  secs.  =  2  +  c/l3  +  C/75 

The  2  seconds  is  compiler  tape  time,  the  C/l3  is  card  read  time  and  C/75  allows 
time  for  reading  the  temporary  tape  and  completing  the  translation.  If  the  program 
to  be  translated  is  put  on  tape  off-line,  the  C/l3  term  can  be  reduced  by  at  least 
one-half.  So  the  translation  rate  is  about  700  statements  per  minute  from  cards 
or  about  1500  statements  per  minute  from  tape.  (The  tape  rate  will  vary  consid¬ 
erably  with  the  complexity  and  length  of  the  statements  being  translated. ) 


XX.  RUNNING  FORTRAN  PROGRAMS  ON  BRLESC 

The  following  list  summarizes  the  steps  for  compiling  and  running  FORTRAN 
programs  on  BRLESC. 

1.  Have  FORTRAN  compiler  tape  on  tape  switch  15, 

2.  Have  tape  switch  7  set  to  a  temporary  tape. 

3.  If  have  card  input,  be  sure  manual  read  switch  36  is  down. 


mo  m  i  o 
IIILUIVXCI 


~\  -r»  <00  crr.T-f  4-  r»V»  ^  A  ivn 

x  x  v-u.vx  onx  ov.11 


h- .  If*  hav 0  tape  input  (pno^i’am  on  taps);  set 
and  set  tape  switch  6  to  input  tape  unit. 

5.  If  want  all  tape  output,  set  manual  read  switch  38  up  and  set  tape 
switch  13  to  output  unit.  Also  put  manual  read  switch  37  np  if 
this  output  tape  should  be  rewound  at  the  end  of  this  problem. 

6.  If  programmer  specifies  any  other  input  or  output  tapes,  mount 
proper  tapes  and  set  proper  tape  switches.  (The  programmer  may 
also  specify  13  as  an  output  tape  without  manual  read  switch  38 
being  up. ) 
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7.  Use  "tape  start"  button  to  initiate  compiling  the  program. 

Halts : 

a.  073;  program  error,  initiate  only  if  problems  are  stacked. 

b.  N40;  end  of  problem,  initiate  only  if  problems  are  stacked. 

c.  All  other  halts  or  cycles;  note  PO  and  NI  registers  and  do  a  jump  to  038. 
It  should  soon  get  to  N40. 

XXI.  MAJOR  DIFFERENCES  BETWEEN  FORAST  AND  FORTRAN 

The  following  list  of  some  of  the  basic  differences  between  these  two  pro¬ 
gramming  languages  should  be  useful  to  anyone  who  knows  one  language  and  is  inter¬ 
ested  in  learning  the  other  one. 

1.  Statement  numbers  in  FORTRAN  must  be  integer  numbers  that  are  used 
as  symbolic  names  whereas  the  location  field  in  FORAST  may  contain 
any  symbolic  name  and  a  decimal  integer  is  used  as  an  absolute 
address. 

2.  The  initial  character  of  a  variable  name  must  be  alphabetic  in 
FORTRAN  and  indicates  the  type  of  variable.  In  FORAST,  the  initial 
character  may  be  a  decimal  digit  and  has  no  special  significance. 

3.  The  type  of  names  used  in  FORTRAN  arithmetic  expressions  determine 
the  type  of  arithmetic  performed.  In  FORAST,  the  type  of  arithmetic 
performed  is  floating  point  unless  changed  by  a  MODE  card  or  by  pre¬ 
ceding  the  formula  by  "FIX"  or  "INT". 

4.  The  type  of  a  constant  is  determined  in  FORTRAN  by  the  presence  or 
absence  of  a  decimal  point.  In  FORAST,  constants  assume  the  same 
type  as  the  type  of  the  statement  they  are  written  in. 

5.  In  FORTRAN  arithmetic  formulas,  automatic  conversion  from  one  type 
of  variable  to  another  is  proveded  when  the  type  of  the  variable  on 
the  left  of  the  =  symbol  is  different  from  the  type  of  the  variables 
used  on  the  right  of  the  =  symbol.  In  FORAST,  this  conversion  must 
be  accomplished  by  the  explicit  use  of  the  appropriate  subroutine 
when  it  is-  desired. 

6.  FORAST  allows  the  use  of  many  =  symbols  to  indicate  more  than  one 
result  address  in  an  arithmetic  formula  while  FORTRAN  allows  only 
one  variable  name  for  a  result  address. 
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7. 


Constant  subscripts  are  enclosed  in  parentheses  in  FORTRAN  but  not 
in  FORAST. 


8.  All  subscripts  have  an  initial  value  of  one  in  FORTRAN.  In  FORAST, 
the  initial  value  may  he  specified  as  zero  or  any  positive  integer 
for  each  array  individually. 


Variable  subscripts  are  allowed  xn  FORTRAN  but  not  in  FORAST.  FORAST 
accomplishes  the  same  thing  more  efficiently  by  allowing  any  address 
to  be  indexed  by  a  single  index  register. 


10.  Three  dimensional  arrays  are  allowed  in  FORTRAN  but  not  in  FORAST. 

11.  FORTRAN  allows  a  multiply  and  an  add  or  subtract  in  a  subscript 
expression  while  FORAST  allows  only  the  addition  or  subtraction  of  a 
constant  in  an  indexing  expression. 

12.  FORTRAN  allows  only  one  statement  per  card  and  FORAST  allows  more 
than  one.  The  statement  field  is  columns  7-72  for  FORTRAN  and  columns 
11-76  for  FORAST. 


13.  Functions  in  arithmetic  expressions  may  have  more  than  one  argument 
in  FORTRAN  but  not  in  FORAST. 

lb.  Implied  multiplication  is  allowed  in  FORAST  but  not  in  FORTRAN 
(although  it  does  work  in  some  FORTRAN  compilers.) 

15.  The  FORTRAN  IF  statement  is  very  restricted  compared  to  the  FORAST  IF 
statement . 

16.  Absolute  addresses  are  not  allowed  in  FORTRAN  but  are  allowed  in 
FORAST. 


t/lLUUlUJXUl 


ERIE SC  FORTRAN 


1.  The  first  card  should  be  an  identification  card  with  an  asterisk  in 


2.  If  the  signs  used  in  the  program  are  reversed  to  BRL  usage,  insert  a 
"CHANGE  +  AND  control  card  after  the  identification  card,  (y  is  -  and  x  is 
at  BRL.) 

3.  If  input  data  is  included  with  x  minus  signs,  insert  a  CALL  SETMSl(2) 
statement  where  it  will  be  executed  before  the  data  is  read. 
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4.  Insert  an  extra  card  with  an  E  in  Column  1  between  the  program  deck  and 
the  input  data. 

5.  If  the  program  uses  sense  switches,  it  is  best  to  insert  control  cards 
to  preset  them.  (*  SETSSW  i  UP  or  DOWN) 

6.  If  tapes  are  used,  make  sure  the  tape  unit  numbers  used  are  compatible 
with  BRLESC.  (Those  over  9  may  need  to  be  changed. ) 

7.  Make  sure  arithmetic  statement  function  names  end  with  F. 

8.  Make  sure  that  array  names  of  four  or  more  characters  do  not  end  with  F. 

9.  Make  sure  that  a  nonsub scripted  array  name  has  not  been  used  to  represent 

only  the  first  element  of  the  array. 

10.  Make  sure  that  FORMAT  statements  do  not  contain  any  +  signs. 

11.  Check  for  proper  printer  format  control  characters  at  the  beginning  of 
tape  output  lines.  (A  blank  character  specified  puts  a  1  single  space  character 
on  tape. ) 

12.  If  desired,  change  tape  output  to  card  output  or  vice  versa  by  inserting 
control  cards. 

13.  The  program  needs  to  be  modified  if  it  contains  any  of  the  following: 

(l)  DRUM  statements  (2)  I  cards  (complex  arithmetic),  (3)  assembly  instructions 
for  some  other  computer  or,  (4)  more  memory  or  tape  units  than  available  on  BRLESC. 

14.  Names  of  variables  must  not  be  longer  than  six  characters. 

15.  If  possible,  ask  the  original  programmer  if  they  assumed  any  special 
characteristics  of  a  particular  computer  or  FORTRAN  compiler  when  writing  the  pro¬ 
gram.  For  example,  on  some  computers,  the  variable  in  a  DO  statement  is  not  always 
actually  used  but  it  is  always  used  on  BRLESC. 

16.  If  possible,  run  a  test  case  that  has  been  run  on  another  computer. 
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XXIII.  SUMMARY  OF  FORTRAN  STATEMENTS 


Notations : 

s,  si, s2, . 

4  4  1  4  0 

±}  11,  J .C.} . 

m,ml,m2, , , . . . 
ae 

b,c,d,e,i 

t 

f 

v,  vl,  v2 


are  statement  numbers  (look  like  integer  numbers), 
are  integer  variable  names. 

are  integer  variable  names  or  integer  constants, 
represents  an  arithmetic  expression, 
represent  any  variable  names  or  constants, 
represents  a  tape  unit  number. 

represents  the  statement  number  or  variable  name  of  a  FORMAT 

n4-  n  4*  v* 

O  U  CL  UC1UC11  O  • 

represent  variable  names. 


Specification  Statements: 

General  Form 
DIMENSION  v, vl, v2, . , . . . 

EQUIVALENCE  (v,vl, . (v2,v3,.. 

COMMON  v, vl,v2, . 

FREQUENCY  s(m,ml, . . ), sl(m2, . . ) 

Arithmetic  Statements: 
v  =  ae 

asf (v, vl. . . . )=  ae 

Control  Statements: 

GO  TO  s 
acct/tm  r*  rnn  -i 

iiuu±vji,i  o  xvy  -L 

GO  TO  i  ,  (  si,  s2, .  .  .  ) 


Brief  Description 

Defines  array  names  and  maximum  dimensions 
of  each. 

)  Defines  synonymous  names. 

Defines  names  common  between  subprograms. 
Provides  optimization  information. 

Ignored  by  BRLESC. 

Evaluates  expression  ae  and  stores  result 
in  v. 

Arithmetic  statement  function  where  asf 
represents  its  name  and  v, vl,...  are  the 
dummy  variables. 

DO  statement  s  next. 

Put  address  of  s  into  i. 

Do  next  the  statement  whose  number  was  last 
assigned  to  i  by  an  ASSIGN  statement. 


General  Form 
GO  TO  (  si,  s2, .  .  .  ),  i 

DO  s  i  =  ml, m2,  m3 

DO  s  i  =  ml, m2 
IF(ae)sl, s2, s3 

CONTINUE 
STOP  or  STOP  w 

PAUSE  or  PAUSE  w 
CALL  name  (v,  vl,v2,  . . .  ) 

IF( SENSE  SWITCH  r)sl, s2 

SENSE  LIGHT  r 

IF( SENSE  LIGHT  r)sl,s2 

IF  ACCUMULATOR  OVERFLOW  si, s2 
IF  QUOTIENT  OVERFLOW  sl,s2 
IF  DIVIDE  CHECK  si,  s2 


Brief  Description 
Do  statement  si  next. 

Repeat  statements  to  and  including  s  with 
i  =  ml, ml  +  m3,  ml  +  2m3, . . .  until  i  >  m2. 

Same  as  above  with  m3  =  1. 

Do  statement  si  next  if  ae  is  negative; 
s2  next  if  ae  is  zero  and  s3  next  if  ae  is 
positive. 

Dummy  statement. 

End  of  execution  of  main  program,  (w  is 
octal  no. ) 

Computer  halts.  (Displays  octal  no.  w. ) 

Perform  the  subroutine  specified  by  "name". 

Do  statement  si  next  if  switch  r  is  down, 
do  s2  next  if  it  is  up. 

For  r  =  0  turn  all  sense  lights  off.  For 
r  =  1,2,3,  or  4,  turn  light  r  on. 

Do  statement  si  or  s2  next  if  sense  light 
r  is  on  or  off  respectively. 

These  are  special  statements  to  check 
certain  overflow  indicators.  Statement  si 
or  s2  is  done  next  if  indicator  is  on  or 
off  respectively. 


Subprogram  Statements: 

SUBROUTINE  name  ( v, vl , v2, . . .  ) 


FUNCTION  name  (v,vl, v2, . . . ) 

RETURN 

END 


Defines  the  name  and  beginning  of  a  sub¬ 
routine. 

v,vl,v2, ...  are  the  dummy  variables. 

Defines  the  name  and  beginning  of  a  function 
subprogram. 

Indicates  an  execution  exit  of  a  subprogram. 
Marks  the  end  of  a  subprogram. 
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General  Form 


Brief  Description 


Input - Output  Stat  ement  s : 

FORMAT  (Special  Specifications) 

READ  f .  list 
PUNCH  f,  list 
PRINT  f,  list 

READ  INPUT  TAPE  t,f,  list 

T. TOT  HTTP  r\T  U I  l~PI  TTT1  m  A  T5TP  4-  -P  1  4  ,-,4- 

niuiu  uuiiui  x-fix  id  jlioo 

READ  TAPE  t,  list 
WRITE  TAPE  t,  list 
END  FILE  t 
BACKSPACE  t 
REWIND  t 

READ  DRUM  m, ml, list 
WRITE  DRUM  m, ml, list 


Describes  the  fields  for  input-output  data. 
Read  cards. 

Punch  cards. 

Print  data,  (on-line  on  some  computers, 
off  line  on  BRLESC ) . 

Read  alphanumeric  tape. 

Write  alphanumeric  tape. 

Read  binary  tape. 

Write  binary  tape. 

Write  end-of-file  mark  on  tape. 

Move  tape  back  one  record. 

Rewind  tape. 

Read  drum.  (illegal  on  BRLESC. ) 

Write  drum,  (illegal  on  BRLESC.) 
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APPENDIX  A 


LIST  OF  PRE-DEFINED  FUNCTIONS  FOR  709/7090  AND  BRLESC 
(F  indicates  fl.pt.  and  I  indicates  integer) 


1\TA*rf*IP 

iUU'iLi 

A  DPT  TMTPTVPTl 
ru.wjui'iita.'i  a 

T57PQTTT  rp 

i.VUUUJJX 

NO.  of  ARGS. 

TYGTO  TTYTTmT  /"\1\T 

XiUllUi'l 

ABSF 

F 

F 

1 

Absolute  value. 

XABSF 

I 

I 

1 

Absolute  value. 

_I_X«  J.X 

F 

F 

1 

Truncation  to  whole  number. 

XINTF 

F 

I 

1 

Convert  fl.pt.  no.  to  integer. 

MODF 

F 

F 

2 

Arg.l(mod  Arg.2). 

XMODF 

I 

I 

2 

Arg.l(mod  Arg.2). 

MAAOr 

I 

F 

>  2 

Chooses  largest  argument. 

MAXIF 

F 

F 

>  2 

Chooses  largest  argument. 

XMAXOF 

I 

I 

>  2 

Chooses  largest  argument. 

XMAX1F 

TP 

A’ 

I 

>  2 

Chooses  largest  agrument. 

MINOF 

I 

F 

>  2 

Chooses  smallest  argument. 

MIN1F 

F 

F 

>  2 

Chooses  smallest  argument. 

XMINQF 

I 

I 

>  2 

Chooses  smallest  argument. 

XMIN1F 

F 

I 

>  2 

Chooses  smallest  argument. 

FLOATF 

I 

F 

1 

Convert  integer  to  fl.  pt. 

XFIXF 

F 

I 

1 

Convert  fl.pt.  to  integer. 

SIGNF 

F 

TP 

X 

2 

Transfer  sign  of  Arg.2  to  Arg.i 

XSIGNF 

I 

I 

2 

Transfer  sign  of  Arg.2  to  Arg. 

DIMF 

F 

F 

2 

Arg.l  -  minimum  (Arg.l,  Arg.2) 

yt>tmf 

I 

I 

2 

Arg.l  -  minimum  (Arg.l,  Arg.2) 

XLOCF 

F  or  I 

I 

1 

Stores  the  address  of  the  Arg. 

SQRTF 

F 

F 

1 

Square  root. 

SINF 

F 

F 

1 

Sine  (argument  in  radians) 

riArm 

UUOT 

F 

F 

1 

Pa  Cl  rio  (  rr\  iwon  4“  i  r  rorl  ^  one  ^ 

LUbliit  \  ax  X.  ii  Ac luiano  y 

LOGF 

F 

F 

1 

Natural  logarithm. 

EXPF 

F 

F 

1 

Exponential. 

ArPAiTfi1 

nixuu 

F 

F 

1 

Arctangent  (result  in  radians) 

TANHF 

F 

F 

1 

Hyperbolic  tangent. 

For  BRLESC 

akuSINF 

rml  v  • 

F 

F 

1 

Arcsine. 

ARCCOSF 

F 

F 

1 

Arcosine . 

ARCTANF 

F 

F 

1 

Arctangent  (same  as  ATANF). 

49 


APPENDIX  B 


THREE  EXAMPLES  OF  FORTRAN  PROGRAMS 


»  .m»  /\/^  r»  »  a«  r  uni  i  r 

l  KKUbKAPI  f  i  fMKU  I 


/*!**■* 

U  A  I  A  f 


i  iir>  /m  i  -r  r»  i  i  r  *  /\  r- 

Aimu  UU  I  Pu  I  ft K c 


t  t  f  ♦  r  »\  » 

L15ICUI 


*  EXAMPLE  1  MULTIPLY  TWO  VECTORS  A*B  L.W.  CAMPBELL 

DIMENSION  A< 10) ,B( 10) ,C( 10  ) 

READ  2.A.B 
DO  3  1=1,10 

3  C  U ) = A ( I } *6 (I  ) 

Diiurw  e.-C 

•  w  i  ,  w  i  i  i  t  w 

STOP 

4  FORMAT ( 14HVECT0R  PRODUC T/ { 5E 14. 7 )  ) 

END 

FNO  (THIS  CARD  REQUIRED  ONLY  ON  BRLESC.  ) 


14.  1 

60.35 

22.8 

91.7 

374.18 

36.2 

193.44 

83.61 

2.648 

9.  S 

4.21 

8.23 

1  tv  Q 

7.77 

88.1 

2.7 

3.0 

8.1118 

19.  1 

42.44 

OCT. 25, 63  BRLESC  FORTRAN  2 

*  EXAMPLE  l  MULTIPLY  TWO  VECTORS  A*B  L.W.  CAMPBELL 

i 

I 

wPf tdd  oonnnfT 

f  k  V  I  WM  •  Ill/U  W  • 

0 • 5936 100E  02  0.4966805E  03  0.3625200E  03  0.7125090E  03  0.3296526E  05 
0 • 97 74000E  02  0.5803200E  03  0.6782276E  03  0.5057680E  02  0.4159120F  03 
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*  EXAMPLE  2  FiND  SMALLEST  NUMBER  IN  ARRAY  F ,  L . CAMPBELL 

DIMENSION  FI20) 

READ  2  »  F 
SMALL=F l 1 ) 

DO  9  J  =  2  *  20 
I F ( SMALL-F ( J  5 19.9.8 

8  SMALL  =  F ( J  ) 

9  CONTINUE 

D  I  IMf  Ul  1.  CMAI  I 
r  1  1  j  f  ji  ihul 

STOP 

3  FORMAT! LLHSMALLEST  F=F13.6) 

END 

end 


14.1 

60.35 

00 

• 

r\i 

f\i 

91.7 

00 

p-H 

• 

r- 

36.2 

193.44 

83.61 

2.648 

9.8 

4.21 

8.23 

15.9 

7.77 

B8 . 1 

2.7 

3.0 

8.1118 

19.1 

42.44 

OCT-25»63  RRLESC  FORTRAN  2 

*  EXAMPLE  2  FIND  SMALLEST  NUMBER  IN  ARRAY  F,  L. CAMPBELL 
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*  EXAMPLE  22  FROM  BRL  REPORT  1209  CODED  IN  FORTRAN-L .CAMPBELL 

C  USE  BISECTION  METHOD  TO  FIND  ROOT  OF  F i X )=X«*3— X— 1  IN  INTERVAL  t 1  * 2 ) 

11  FORMAT ( 5X» 1HX10X4HF ( X) // ) 

21  FORMAT! 1P2E15.7) 

31  FORMAT! 24HC0NDI TIONS  NOT  SATISFIED) 

X=l. 

Xi  =  2. 

£PS=. 00001 
ASSIGN  1  TO  K 
PUNCH  11 

44  F  =  X*<  X*X— 1 . )-l . 

PUNCH2 1 1 X  *  F 
GOTOK, ( 1,4,7) 

1  FO=F 

IF ( F )2, 15, 15 
15  XP  =  X 

r  AT  A  “I 

UU  I  U  D 

2  XN=  X 

3  X  =  X1 

ASSIGN  4  TO  K 
GOTO  44 

4  F  i  =  F 

IF!F)5,45,45 

45  XP=X 
GOTO  6 

5  XN  =  X 

6  ASSIGN  7  TO  K 
IF!F0*F1)66,65,65 

65  PUNCH  31 
67  STOP 

66  X- ! XN  +  XP  )  /2  . 

GOTO  44 

7  IF(ARSF!F)-EPS)67» 71,71 

71  IF!F)8,72,72 

72  XP^X 
GOTO  66 

8  XN=  X 
GOTO  66 
END 

ENu 


OCT. 25, 63  BRLESC  FORTRAN  2 

*  EXAMPLE  22  FROM  8RL  REPORT  1209  CODED  IN  FO RT RAN-L . CAMPBELL 

X  F  (  X  ) 


l.OOOOUOOE 

00 

-1. OOOOOOOE  00 

2. OOOOOOOE 

00 

5. OOOOOOOE  00 

i  cir\r\r\r\r\r\c 

A.  • 

r\r\ 

\j  \j 

q  7cnnnnnc-ni 

U  •  t 

1 . 2500000E 

00 

—  2.9687  500F— 0 1 

1 . 3750000E 

00 

2.24609386-01 

1.3 1 25000E 

00 

-5.  1513672E-02 

1.34  37500E 

00 

8.261 1084E-02 

i  ^?ai;sop 

on 

1 ,45759586-02 

1. 3203125E 

00 

-1.871061 3E-02 

1.3242187E 

00 

-2. 1279454 E- 03 

1.3261719E 

00 

6.2088296E— 03 

1.32519536 

00 

2.0366507E-03 

1  .  1?47f!7DF 

00 

-4.6594883E-05 

1.3249512E 

00 

9. 9479097 E— 04 

1.32482916 

00 

4. 7403882E-04 

1 . 324  768  l  E 

00 

2. 1370716E— 04 

1.3247375E 

00 

8 . 3  5524  3  8E— 05 

1.3247223E 

00 

1.8477852E-05 

l . 3247147E 

00 

—  1.405874  7E— 05 
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No .  of 
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DISTRIBUTION  list 
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No.  of 

Copies  Organization 


20  Commander 

Defense  Documentation  Center 
ATTN :  TIPCR 
Cameron  Station 
Alexandria,  Virginia  22314 

1  Director 

Advanced  Research  Projects 
Agency- 

Department  of  Defense 
Washington,  D.  C.  20301 

1  Director,  National  Security- 
Agency 

ATTN:  R/D  36,  Chief  Engineering 
Research  Division 
Fort  George  G.  Meade,  Maryland 

20755 

1  Commanding  General 

U.S.  Army  Materiel  Command 
ATTN:  AMCRD-RP-B 
Washington,  D.  C.  20315 

1  Commanding  Officer 
Frankford  Arsenal 
Philadelphia,  Pennsylvania  19137 

1  Commanding  Officer 
Picatinny  Arsenal 
ATTN:  Feltman  Research  and 

Engineering  Laboratories 
Dover,  New  Jersey  O78OI 

1  Commanding  General 

U.S.  Army  Missile  Command 
Redstone  Arsenal,  Alabama  35809 

1  Commanding  Officer 
Watertown  Arsenal 
Watertown,  Massachusetts  02172 

1  Commanding  General 

U.S.  Army  Munitions  Command 
Dover,  New  Jersey  O78OI 


1  Commanding  General 

U.S.  Army  Tank  -  Automotive  Center 
Land  Locomotion  Research  Laboratory 
Warren,  Michigan  48090 

1  Commanding  General 
Army  Weapons  Command 
Rock  Island,  Illinois  61200 

1  Commanding  General 

White  Sands  Missile  Range 
New  Mexico  88002 

1  Director 
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1  Commanding  General 
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Development  Command 
Washington  25,  D.  C. 

1  Commanding  General 

U.S.  Army  Chemical  Research  & 
Development 

ATTN:  Dr.  Carl  M.  Herget 
Edgewood  Arsenal,  Maryland  21040 

1  Commanding  Officer 
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Agency 
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Data  Processing  Center 
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1  Commanding  General 
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Edgewood  Arsenal,  Maryland  21040 
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1  Commanding  Officer 

Operations  Research.  Group 
™  ^ev/ood  Arsenal,  Maryland  210A0 

1.  Director 

U.S.  Army  Chemical  Corps 

duality  Assurance  Technical 
Agency 

Ed geuood  Arsenal ,  Maryland 


1  Chairman 

U.S.  Army  Chemical  Corps 
Technical  Committee 
Edgewood  Arsenal,  Maryland 
21040 

1  Commanding  General 

U.S.  Army  Chemical  Corps 
Proving  Ground 
Dugway  Proving  Ground 
Dugway,  Utah  81022 

1  Director 

U.S.  Army  Biological 
Laboratories 

Fort  Detrick,  Maryland  21701 

1  Commanding  Officer 

U.S.  Army  Corps  of  Engineers 

Army  Reactors  Group 

Fort  Belvoir,  Virginia  22060 

i  Director 

U.S.  Army  Corps  of  Engineers 
Geodessy  Intelligence  and 

Mapping  Research  &  Development 
Agency 

Fort  Belvoir,  Virginia  220fc0 

1  Commanding  Officer 

U.S,  Army  Corps  of  Engineers 
Polar  Research  &  Development 
Center 

Fort  Belvoir,  Virginia  22060 


1  Commanding  General 

U.S.  Army  Research  &  Development 
Laboratories 

Fort  Belvoir,  Virginia  22060 

1  Commanding  Officer 

U.S.  Army  Corps  of  Engineers 
Army  Reactors  Group 
Germantown,  Maryland 

1  Commanding  Officer 

TT  Q  A  •v’rvii  r  C1  r\-y^~r-\  r-  r\-P  TT  v>  <-r  -?  nnnr  r- 
•  KS  •  r"i.-L  Jlljf  ±  O  UllgjUilCCi  o 

Waterways  Experiment  Station 
P.0.  Box  6jl 
Vicksburg,  Mississippi 

1  U.S.  Army  Corps  of  Engineers 

Special  Assistant  for  Nuclear  Power 
Building  T-7 
Washington  25,  D.  C. 

1  Director 

U.S.  Army  Corps  of  Engineers 
Cold  Regions  Research  and  Engineering 
Laboratory 

1215  Washington  Avenue 
Wilmette,  Illinois 

1  Director 

U.S.  Army  Medical  Research  and 
Nutrition  Laboratory 
Denver,  Colorado 

i  - ^  ~  ^  ^ 

_L  OUIJiiilcliiU  'Jll  ICC! 

U.S.  Army  Medic si  Rescsrch  snd 
Development  Command 
Washington  25,  D.  C. 

1  Commanding  Officer 

U.S. Army  Medical  Unit 
Fort  Detrick,  Maryland 

1  Commanding  Officer 

U.S.  Army  Medical  Research  Laboratory 
Fort  Knox,  Kentucky  10120 
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Copies 
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1 


1 


1 
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Organization 


No.  of 

Copies  Organization 


Commanding  Officer 
U.S.  Army  Signal  Engineering 
Agency 

Arlington  Hall  Station 
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1  Commanding  General 

U.S.  Army  Electronics  Research  and 
Development  Laboratory 
ATTN:  Data  Equipment  Branch 
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Commanding  General 
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Commanding  Officer 
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Agency 
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Field  Office 
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Ground 
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1  Commanding  General 

U.S.  Army  Electronics  Command 

AmrnTVT  .  A  TVTOTP  T  p^D 
nij.ii  .  m.i'i  kJio  L-lJ 
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1  Director 
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No.  of 

Copies  Organization 

1  Commandant 
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1.7  Q  n  Vci  Kl  fT-f  /“vyi  O  T)  n 
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No.  of 

Copies  Organization 
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GUI  uuaj  oaiiiOriUa 
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ATTN:  Simulation  &  Computation 

Branch 

Atlantic  City,  New  Jersey 

1  Federal  Aviation  Agency 

ATTN:  Data  Processing  Branch- 

Aircraft  Management  Division 
Bureau  of  Flight  Standards 
P.0.  Box  1082 
Oklahoma  City,  Oklahoma 

1  Director 

National  Aeronautics  and  Space 
Administration 
ATTN:  Mr.  R.E.  Liettell 
1520  H  Street,  N.W 
Washington,  D.  C.  20546 

1  Director 

National  Aeronautics  and  Space 
Administration 
Flight  Research  Center 
ATTN:  Computer  Facility 
Box  273 

Edwards,  California 
0  Director 

National  Aeronautics  and  Space 
Administration 
Goddard  Space  Flight  Center 
ATTN:  Tracking  &  Data  Systems 
I .  Mortimer  Datz- 
Computer  Operations  Branch 
Data  Systems  Division 
Anac ostia  Naval  Station 
Washington  25,  D.  C. 


(C  r\ 
DU 


DISTRIBUTION  LIST 

1\T  y^P 

i •  Ul 

Copies 


No.  of 

Copies  Organization 


1  Director 

National  Aeronautics  and  Space 
Administration 
Lewis  Research  Center 
ATTN:  Computer  Faciltiy 
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xw  vwxuuu  nil  ^Ui  L* 

Cleveland,  Ohio 
3  Director 

National  Bureau  of  Standards 
ATTN;  Mr.  Paul  Neissner 

Components  &  Technique 
Section-Data 
Processing  Systems 
Division 

Dr.  S.  N.  Alexander 

Computation  Laboratory 
232  Dynamomenter  Building 
Washington  25,  D.  C. 

1  U.  S.  Department  of  Commerce 
Bureau  of  Census 
ATTN:  Computer  Facility 
Federal  Office  Building  No.  3 
Suitland,  Maryland 

1  Brookhaven  National  Laboratory 
ATTN:  Computer  Facility 
Upton,  New  York 

1  Oak  Ridge  National  Laboratory 
P.  0.  Box  P 
Oak  Ridge,  Tennessee 

1  Research  Analysis  Corporation 
ATTN:  Computer  Facility 
6935  Arlington  Road 
Bethesda,  Maryland 
Washington,  D.  C.  20014 

1  The  Johns  Hopkins  University 
Applied  physics  Laboratory 
ATTN:  Computer  Facility- 
8621  Georgia  Avenue 
Silver  Spring,  Maryland 


1  California  Institute  of  Technology 
Jet  Propulsion  Laboratory 
ATTN:  Computer  Facility 
4800  Oak  Grove  Drive 
Pasadena,  California  91103 

1  Ampex  Computer  products  Company 
9937  Jefferson  Boulevard 
Culver  City,  California 

1  Datatrol  Corporation 

Consulting  &  Programming  Services 
ATTN:  Mr.  Cooper,  Vice  President 
8113A  Fenton  Street 
Silver  Spring,  Maryland 

1  E.  I.  DuPont  DeNemours  Company 
Engineering  Department 
ATTN:  Theodore  Baumeister,  III 
Wilmington  98,  Delaware 

1  Engineering  Research  Associates 
Division  of  Remington  Rand,  Inc. 
1902  W.  Minnehaha  Avenue 
St.  Paul,  Minnesota 

1  General  Mills 

Electronics  Group 
1000  ibth  Street,  N.  W. 

506  Solar  Building 
Washington  6,  D.  C. 

1  International  Business  Machine 
Corporation 

Engineering  Laboratory 
ATTN:  Customer  Executive 

Education  Department 
oan  Jose,  Caliiorma 

1  Raytheon  Manufacturing  Company 
P.  0.  Box  398 
Bedford,  Massachusetts 
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1  Remington  Rand  Univac 
Division  of  Sperry  Rand 
Corporation 

ATTN:  Systems  Analysis 
1900  W.  Allegheny  Avenue 
St.  Paul,  Minnesota 

1  Science  Research  Association 
Incorporated 
259  East  Erie  Street 
ATTN:  Mr.  Don  Shepherd 

Project  Director 
Chicago  11,  Illinois 

1  Technitrol  Engineering 
Corporation 

1952  E.  Alleghany  Avenue 
Philadelphia  34 ,  Pennsylvania 

1  California  Institute  of 
Technology 
ATTN:  Comptroller 
Pasadena,  California 

1  Columbia  University 
Electronics  Research 
Laboratories 
65?  West  1.25  Street 
New  York  2'( ,  New  York 

1  Columbia  University 

Lewis  Cyclati.on  Laboratory 
ATTN:  Computer  Facility 

Box  137 

Irvington  on  Hudson,  New  York 

1  Cornell  University 

ATTN :  Coordinator  of  Research 
Ithaca,  New  York 

1  Dartmouth  College 

ATTN:  Computation  Center 
Hanover,  New  Hampshire 
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1  The  George  Washington  University 
ATTN:  Logistics  Research  Project 
70'7  22nd  Street,  N.w. 

Washington  7,  D.  C. 

1  Georgia  Institute  of  Technology 
Engineering  Experiment  Station 
ATTN:  Rich  Electronic  Computer 
Center 

Atlanta  13,  Georgia 

1  Harvard  University 

Computation  Laboratory 
Cambridge  38,  Massachusetts 

1  Indiana  University 

ATTN :  Research  Computing  Center 
Bloomington,  Indiana 

1  Iowa  State  University  of  Science 
and  Technology 

Engineering  Experiment  Station 
ATTN:  Cyclone  Computer  Laboratory 

Ames,  Iowa 

1  The  Johns  Hopkins  University 
ATTN:  Computation  Center 
34th  and  Charles  Streets 
Baltimore  IB,  Maryland 

1  Lehigh  University 

ATTN:  Computer  Facility 
Bethehem,  Pennsylvania 

1  Marquette  University 
ATTN:  Computing  Center 
1515  West  Wisconsin  Avenue 
Milwaukee,  Wisconsin 

1  Michigan  State  University 
College  of  Engineering 

ATTN:  Computer  Laboratory 
East  Lansing,  Michigan 
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1  Missouri  School  of  Mines 
and  Metallurgy 
ATTN:  Computer  Facility 
Rolla,  Missouri 

1  New  York  University 

College  of  Engineering 
ATTN:  Computation  & 

Statistical  Laboratory 
University  Heights 
New  York  53 ,  New  York 

1  Oklahoma  State  University 
The  Computing  Center 
ATTN :  Department  of 

Mathematics 
Stillwater,  Oklahoma 

1  Oregon  State  College 

Department  of  Mathematics 
ATTN:  W.  E.  Milne 
Corvallis,  Oregon 

1  Polytechnic  Institute  of 
Brooklyn 

ATTN:  Mr.  Warren  Roes 
333  Jay  Street 
Brooklyn  1,  New  York 

1  Princeton  University 
Mathematics  Department 
Princeton,  New  Jersey 

1  Stanford  University 

ATTN :  Computation  Center 
Stanford,  California  13201 

1  University  of  Alberta 

Department  of  Mathematics 
ATTN:  Professor  John  McNamee 
Edmonton,  Alberta,  Canada 
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1  University  of  California 
942  Hilldale  Avenue 
Berkeley,  California 

1  University  of  Delaware 
Newark,  Delaware 

1  University  of  Illinois 
Department  of  Mathematics 
Urbana,  Illinois 

1  University  of  Pennsylvania 

The  Moore  School  of  Electrical 
Engineering 
ATTN :  Mr .  Ingerman 
Philadelphia  4,  Pennsylvania 

1  Professor  Bruce  Charters 
Computing  Laboratory 
Brown  University 
Providence,  Rhode  Island 

1  Dr.  L.  H.  Thomas 

Watson  Scientific  Computing 
Laboratory 
612  W.  Il6th  Street 
New  York  27,  New  York 

1  Mary  Broadhead 

12  Westfall  Avenue 
Troy,  New  York 

4  Australian  Group 

c/o  Military  Attache 
Australian  Embassy 
2001  Connecticut  Avenue,  N.  W. 
Washington,  D.  C.  20008 
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10  The  Scientific  Information  Officer 

Defence  Research  Staff 
British  Embassy 

3100  Massachusetts  Avenue,  N.W. 
Washington ,  D .  C .  20008 

4  Defence  Research  Member 

Canadian  Joint  Staff 
2450  Massachusetts  Avenue,  N.W, 
Washington,  D.  C.  20008 


Aberdeen  Proving  Ground 
Chief,  TIB 

Air  Force  Liaison  Office 
Marine  Corps  Liaison  Office 
Navy  Liaison  Office 
CDC  Liaison  Office 
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AD _ Accession  Ho. _ _ _  UNCLASSIFIED 

Ballistic  Research  Laboratories,  APG 

HRLESC  FORTRAN  Mathematical  computers  - 

Lloyd  H.  Campbell  and  Glenn  Beck  coding 

Mathematical  computers  - 

BHL  Report  Ho.  1229  November  1963  operation 

KOT  A  £  Project  Ho.  1M010501A003 
UNCLASSIFIED  Report 

FORTRAN  is  a  popular  programming  language  that  has  been  implemented  on  many 
computers.  It  is  now  available  on  Ballistic  Re  search  Laboratories'  BRLESC’  com¬ 
puter.  Tils  report  describes  the  FORTRAN  language  in  general  and  includes  specific 
details  about  its  implementation  on  BRLESC. 
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Ballistic  Research  Laboratories,  AFC- 

BRLESC  FORTRAN  Mathematical  computers  - 

Lloyd  V.  Campbell  and  Glenn  Beck  coding 

Mathematical  computers  - 

ERL  Report;  No.  1229  November  1963  operation 

RDT  A  E  Project  No.  1M010501AD03 
UNCLASSIFIED  Report 

FORTRAN  is  a  popular  programming  language:  that  has  been  implemented,  on  many 
computers.  It  is  now  available  on  Ballistic  Research  Laboratories'  BRLESC  com¬ 
puter.  Tills  report  describes  the  FORTRAN  language  in  general  and  includes  Bpecific 
details  about  its  implementation  on  BRLESC. 
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Ballistic  Research  Laboratories,  APG 

BRLESC  FORTRAN  Mathematical  computers  - 

Lloyd  W.  Campbell  and  Glenn  Beck  coding 

Mathematical  computers  - 

BRL  Report  No.  1229  November  1963  operation 

RDT  A  E  Project  No.  1M01050JA003 
UNCLASSIFIED  Report 

FORTRAN  is  a  popular  programming  language  that  has  been  implemented  on  many 
computers.  It  is  now  available  on  Ballistic  Research  laboratories'  BRLESC  com¬ 
puter.  Tils  report  describes  the  FORTRAN  language  in  general,  and  includes  speclflcl 
details  about  Its  implemisntat  ion  on  BRLESC.  j 
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Ballistic  Research  Laboratories,  APG 

BRLESC  FQFiTRAN  Mathematiceil  computers  - 

Lloyd  W.  Campbell  and  Glenn  Beck  coding 

Mathematical  computers  - 

BRL  Report  Bo.  1229  November  1963  operation 

RDT  St  E  Project  Wo.  1M010501A003 
UNCLASiHFIH)  Report 

FORTRAB  is  a  popular  programing  language  that  has  been  Implemented  on  many 
computers.  It  is  now  available  on  Ballistic  Research  laboratories'  BRLESC  com¬ 
puter.  Tils  report  describes  the  FORTRAB  language  in  general  and  includes  specific 
details  about  its  implementation  on  BRLESC.  | 
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Ballistic  Research  Laboratories,  APG 
BRLESC  FORTRAN 
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RDT  A  E  Project  Ho.  1M010501A003 
UNCLASSIFIED  Report 


UNCLASSIFIED  AD _ Accession  No. 

Ballistic  Research  laboratories,  AFG 
Mathematical  computers  -  I  BRLESC  FORTRAN 

coding  |  Lloyd  W.  ClampbelL  and  Glenn  Beck 

Mathematical  computers  -  I 

operation  BHL  Report  Ho.  1229  Novonber  1963 

RDT  A  E  Project  No.  1M010501AD03 
UNCLASSIFIED  Report 


UNCLASSIFIED 

Mathematical  computers 
coding 

Mathematical  computers 
operation 


FORTRAN  is  a  popular  programming  language  that  has  been  implemented  on  many  FORTRAH  is  a  popular  programming  language  that  has  been  Implemented,  on  many 

computers.  It  is  now  available  on  Ballistic  Research  Laboratories*  BRLESC  com-  computers.  It  is  now  available  on  Ballistic  Research  Laboratories*  BKLESC  com¬ 

puter.  This  report  describes  the  FORTRAN  language  In  general,  and  Includes  specific  puter.  This  report  describes  the  FORTRAN  language  in  general  and  includes  specific 
details  about  its  implementation  on  BRLESC.  details  about  its  implementation  on  BKLESC. 


AID _ _Accession  No. _ 

Ballistic  Research  Laboratories,  APG 
BKLESC  FORTRAN 

Lloyd  W.  Campbell  and  Glenn  Beck 

BHL  Report  No.  1229  November  1963 
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Ballistic  Research  Laboratories,  APG 
Mathematical  computers  -  BRLESC  FORTRAN 

coding  Lloyd  W.  Campbell  ajid  Glenn  Beck 

Mathenatical  computers  - 

operation  BRIi  Report  No.  1229  November  1963 
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UNCIASSIFIED  Report 
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Mathematical  computers 
coding 

Mathematical  computers 
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FORTRAN  is  a  popular  programing  language  that  has  been  implemented  on  many  i  FORTRAN  is  a  popular  programming  language  thiat  has  been  implemented  on  many 
oonputers.  It  is  now  available  on  Ballistic  Research  Laboratories’  BRLESC  com-  j  computers.  It  is  now  available  on  Ballistic  Research  Laboratories'  BRLESC  com¬ 
puter.  This  report  describes  the  FORTRAN  language  in  general  and  includes  specific  puter.  This  report  describes  the  FORTRAN  language  In  general  and  includes  specific 
details  about  its  implementation  on  BRLESC.  details  about  its  implementation  on  BRLESC.  i 
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